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ABSTRACT 


The problem of conserving or allocating common 
mineral resources is rarely considered by those who plan 
the destiny of our urban environment. The purpose of this 
research is twofold: (1) to delineate in dollar terms the 
magnitude of the result of not planning for the consumption 
of common mineral resources, and (2) to develop a computer 
simulation model which will provide planners with an indi- 
cation of the effects of decisions affecting these 
resources, 

The construction mineral aggregates with which 
this research is specifically concerned (sand, gravel, and 
crushed stone) are among the earth's most plentiful, yet 
are rapidly being rendered inaccessible in those areas 
which need them most. They are characterized by a low 
intrinsic value, a high bulk, and a delivered price which 
is very sensitive to the transportation cost associated 
with moving it from the quarries to their points of demand. 
It is ironic that the cities which create the demands for 
Hibikseac aggregates are, at the same time, preventing their 
extraction by being built over them or by legally limiting 
their use through zoning restrictions. 

The simulation model which has been deveioped 
enables the planner to investigate the effects of various 
zoning strategies. It allows him to investigate the results 


of limiting individual operations, and to force the removal 


x1 


of material from a site before it is covered by urban 
development. It does not attempt to search for decisions 
which yield "optimal" solutions; rather it indicates the 
results, over a (simulated) time period, of various 
planning strategies, thus providing the planner with 
greater insight into the effects of the decisions that 

he alone can make. 

In order to provide the model with the data of 
the urban area being studied, the geographic region is 
subdivided into a number of rectangular grids and the 
characteristics of each grid fed into the computer. 

Such characteristics as the location, type, and reserves 
of all quarries and potential quarries and the location, 
type, aggregate requirements, and starting year of all 
construction projects are required as input data. 

The computerized model Jecteaneuayn this 
research is programmed in IBM/360 Assembly Language to 
provide, from a computing viewpoint, an efficient pro- 
gram which is capable of anaylzing a large number of 
grids. The program requires approximately 100,000 
characters of core storage for a study area encompassing 
1,000 grids; peripheral storage such as tape or disc is 
not required. 

The model has been run and tested on the Tri- 
City area (Albany, Schenectady, and Troy, New York). 


From this pilot study, a number of observations have 


pe 
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been made ; some concerning the model itself, and others 
specifically pertinent to the study area. 

The Tri-City area has an abundance of very 
strategically situated mineral aggregate producers, most 
of which have more than adequate reserve deposits. 
Potential reserves are also abundant, and present zoning 
restrictions do not interfere to any appreciable extent 
with the existing supplies. As a result, the study area 
proved to be quite insensitive to the experimental changes 
that were made during the simuletion runs. 

Under hypothetical test conditions where the 
quarry suppliers were few in number, the model was very 
sensitive to zoning changes and the relative position 
between supply and demand points. Hence, the accuracy 
and detail with which data should be collected is a 
function of severity of the mineral resource problem 
within the area being studied. 

| Although the model developed in this research 
has been designed specifically for studying common mineral 
resources, it can be extended to become part of a more 
general land use model. Furthermore, the ideas and method- 
ology used in its development can be applied to studying 


any non-renewable, fixed position resource. 
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CHAPTER) 1 


INTRODUCTION 


eae Description of the Problem 


We read daily of the problems facing the 
metropolitan areas of the United States; of slums, over- 
crowding, civil rights, air and water pollution, noise 
and dust control, and many more. Yet one is hard pressed 
to say that he is aware of another important problem: 
that the very materials from which a city builds its 
buildings, roads, and bridges are becoming increasingly 
scarce. Ironically, the materials to which we refer, 
sand, gravel, and stone are among the most plentiful in 
the earth's surface, yet they are rapidly being rendered 
inaccessible in those areas that need them most. The 
shortage is not that the earth contains no more mineral 
aggregates; rather, it is because roads and buildings 
have been built over them or zoning laws prohibit their 
being quarried where they are most needed. "The paradox 
of the sand and gravel industry is that the wave of 
highway and building construction, which has boomed the 
demand for its products, is at the same time making 
deposits less accessible" (ASPO Planning Advisory 
Service [1961], p. 1). 

Sand, gravel, and stone are non-renewable, 


fixed position mineral resources. Their location is 


fixed by nature, and they cannot be created or replaced 
by the ingenuity of man. "They are characterized by a 
low intrinsic value, a high bulk, and an at market price 
highly sensitive to transportation costs" (Wallace, 
Dunn, and sBishkowli9b6¢),2p. ib), 


The resources which are of concern 
to a city - water and construction 
materials - are measured in cents per 
1,000 gallons, cents per yard, or 
cents per ton. They are commodities 
which are used in large volumes but 
which have a low value per unit of 
production. Of paramount importance, 
then, is the location of the 
resources - proximity to a city' S 
growing parts (Flawn [1964], p. 3). 


We begin to get an awareness of the transpor- 
tation sensitive characteristic of these commodities. 
Continuing, 

One very important economic fact of 
life to remember about the minerals 


aggregates industries is that these 
minerals must be mined and processed 


near the market. Sand, gravel, and 
stone are high volume - low value 
products. 


Eighty percent of sand and gravel is 
shipped by truck to the market over 
distances of under 30 miles. It has 
been estimated that a hauling distance 
of p20 ami lesedoubles  thevegsteor 
delivered sand and gravel. Thus, 
relatively short additional hauling 
distances have a dramatic effect on 
the costs of aggregates and therefore 
on the cost of Construction. | UL Lo 
put it another way, vast reserves of 
stone or gravel in the Rocky Mountains 
have no value even for construction 

in Denver (Ahearn [1965], p. 2). 


The problem of excessive transportation costs 
is mentioned mainly in qualitative terms. This research 
will, as it attempts to quantify the overall problem of 
planning for mineral commodities, investigate and 
experiment in great detail with the transportation aspect 
of the problem, particularly to its magnitude in dollar 
terms. 

Goldman ([1961], p. 717) points out that the 
public suffers more than just absorbing excessive rates 
for delivered aggregates. 


Often the new deposits being worked 

at a great distance from the consuming 
center are of inferior quality when 
compared to the original source, yet 
they must be utilized because the 
expense of importing higher quality 
material from a more distant source 
would be prohibitive. Thus the 
quality of construction suffers 

and maintenance costs rise. 


The population of the United States continues 
to grow, and with it grows the need for more and more 
building materials. 


To house the future population of the 
United States, to provide it with 
employment, education, health and 
recreational facilities, we must build 
an urban plant to take care of it. No 
longer will any appreciable portion of 
the land be able to provide for itself 
in a pioneering fashion, to live off 
the land, to strike out on its own. 
Providing this urban plant is a major 
task, if not the major task for the 
nation (O'Harrow [1962], p. 3). 


"Pach decade urban settlement extends over an 


additional 15,000 square miles of land in and around our 


metropolitan complexes" (Goldman [1959], p. 2). By a 
few years after the turn of the century, the population 
of the United States will exceed 350 million people 
(O'Harrow [1962], p. 2), the vast majority of whom will 
live in or around a metropolitan area. During the past 
ten years alone, we have witnessed a population 
expansion of over 30 million people. 

"The use of sand and gravel, and of stone, 
follows a growth curve which locks like the curve of 
population growth" (ASPO Plannirg Advisory Service [1961], 
p. 1). It is estimated that "-in the streets alone 
of this urban development, we will use something on the 
order of 4 billion tons of sand and gravel. I feel that, 
conservatively estimated, you will have to produce over 
the next 30 years twice as much sand and gravel as you 
would if you stayed at your present capacity" (Bell | 
DS Gere Omori) es 

As the growing population continues to seek 
metropolitan areas as their place of residence, the area 
of land over which they extend will increase. Increasing 
amounts of sand, gravel, and stone will be needed within 
these areas. If the present trend of not allowing 
quarrying within metropolitan limits continues, quarries 
will continue to be forced to move farther and farther 
away from their points of demand. 

Dennis O'Harrow, Executive Director of the 


American Society of Planning Officials projected his 


thoughts on future zoning restrictions by stating: 


One of the most important resources 


“needed to care for this next 100 


million city dwellers is land. You 

can in the future expect to see land 
controls, zoning and subdivision 
regulations become even more widely 

used than they are now. I believe 

also that you (Sand € Gravel Association) 
will be subject to restrictions much 
tougher than those you presently 
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The problem facing planners was well presented 


by Vincent Ahearn, Jr. ([1965], p. 2) when he stated: 


The question is raised, therefore: 
Are we going to be able to meet 
this huge demand for aggregates 
during the next 3) years? 


Remember that these next 100 million 
people are going to live in urban 
areas. We are already in the midst 
of rapid horizontal expansion of our 
cities and suburbs. Instead of 
getting better, this expansion is 
going to accelerate, and every square 
Mile it covers may contain (and 
frequently does), valuable deposits 
of sand, gravel, or stone which, 
when covered with suburban develop- 
ment, will be forever lost. 


The magnitude of the problem within New York 


State was given dramatic proportions by Governor Nelson 


Rockefeller. 


During the next 20 years it is 
estimated that private and public 
builders will construct in New York 
State more physical facilities - 
factories, schools, highways, homes - 
than existed in the entire state in 
1940 (Dunn and Broughton [1965]). 


As a result of the forecasted shortage of 


construction aggregates, and what became the impetus of 


this research, Dunn and Broughton [1965] have proposed 
a mineral conservation ethic: 
Our major thesis is that waste and 
misuse of earth materials in our 
time can become a calamity; that it 
has many causes; and that prudent 
thought and action now can avert what 
we feel is a developing crisis in 
raw materials. This leads us to 
propose a "Mineral Conservation Ethic": 
ANY ACTION WHICH LEADS TO THE WASTE 
OR MISUSE OF A MINERAL RESOURCE IS 
A CONCERN OF THE GENERAL PUBLIC. 

The knowledge that mineral aggregate supplies 
are becoming scarce is not enough to make the public 
act in their behalf; the added costs the community will 
have to pay because of this shortage can be a far more 
persuasive means of alerting public attention. Zoning 
laws are made by town boards, each looking after the 
needs within its own community and few seeing the 
"broader picture." This research is an attempt to 
provide a means by which the total future cost of 
mineral aggregates under various zoning strategies can 
be extrapolated and presented to the planners who makes 
the laws which control their usage. No effort is made 
to determine the utility of the lands on which quarries 
reside; rather, it is left to the planner to determine 
whether the cost differentials (in real dollars) can 


justify athe utility dittenentidals oO: the wait fected 


land. 


1.20 Research Objectives 


This research does not intend to substantiate 
(or even quantify) the fact that there is a geologic 
shortage of mineral aggregates; rather it is concerned 
with whether the problem is of economic concern, Bnd ed 
so what can be done about it. The objectives, therefore, 
are twofold: (1) to develop a technique by which dollar 
values can be attached to all costs associated with 
common mineral aggregate usage over a forecasted time 
period, and (2) to develop a planning model which will 
enable the planner to consider mineral resource Bice pio 
in the overall plan of regional growth. 

The first objective of this research is to 
quantify the mineral aggregate costs that will be 
generated as a community grows over a forecasted time 
period (i.e. describe the magnitude of the problem). In 
order to accomplish this objective, it 1s necessary to 
describe the dynamics of the growth of the community 
and its relationship to ae demands on the mineral 
resources RS are capable of supplying it. A model 
is developed which uses as input the geologic data of 
the area being aad and the demands created by the 
forecasted urban growth. 

A natural consequence of describing what will 
happen under existing conditions is describing what will 


happen under an alternative set (or sets) of conditions. 


The ability to provide the planner a means by which he 

can ask "what will happen if?" and get an answer ina 

matter of minutes - rather than waiting to find out what 

would really happen and he actually implemented his 

plan - is the second major objective of this research. 
The methodology used to accomplish these tasks 


is described in detail in Chapter III. 


1.30 »~General. Discussion of Report Format 


Chapters I, II, and III contain a review of 
the literature pertinent to the research described in 
this report. Chapter I describes the problem and 
objectives of this research. Chapter II presents an 
overview of the mineral aggregate producer and consumer. 
It discusses transportation methods, reclamation, zoning, 
and the role of the urban planner. 

Chapter III develops how simulation techniques can 
aid in the solution of problems of planning. Also 
discussed in this chapter are the problems encountered 
in establishing the simulation model, a discussion on 
the available computer languages, and the reasons for 
the necessity of a pilot drea™ study. 

Chapter IV deals with the specifics of the 
computer simulation model. It describes in detail the 
assumptions that were made and the decision processes 


included in the model. 


Chapter V discusses the data collection 
process and suggests more efficient techniques which 
should be employed when conducting future studies on 
other’ areas. 

Chapter VI presents the simulated output of 
the pilot area studies and summarizes the researchers' 
conclusions. Included in this chapter is a discussion 
of validation procedures employed in the model 
analysis. 

A summary and discussion of the overall 
implications of the research and a guide for future 
studies is presented in Chapter VII. 

Appendix A is a User's Guide. It includes all 
the details necessary for a "non-programmer" to 
prepare data for the model. Appendix B describes the 
model in a programming sense. This appendix, when used 
in conjunction with the detailed flow diagrams 
(Appendix C) and the program itself (Appendix D) will 
enable an experienced IBM System/360 Assembly Language 
programmer to make changes or additions to the model 


herein described. 
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CHAPTERS EL 
ECONOMIC AND TECHNOLOGICAL BACKGROUND 
2.10 “Introduction 


The mining eee is concerned with the 
removal of naturally occurring materials from above and 
beneath the earth's surface and some form of initial 
processing. These materials include: industrial 
minerals, ferrous and non-ferrous metals, coal, petroleum, 
natural gas, precious stones and metals, and construction 
aggregates. 

The construction aggregates industry is by 
volume of materials produced, the largest of the mining 
industries in the United States today (Ahearn [1965]). 
The common mineral aggregates* (sand, gravel, and crushed 
stone) “consist of inert fragments which are added to 
a cementing material to form concrete. Their primary 
Fue is to provide bulk, and as such, they should 
be relatively abundant and cheap. Mineral aggregates 
include a variety of naturally occurring, manufactured, 
and by-product materials. Naturally occurring 


aggregates are those which are removed from the earth 


*specialty aggregates such as lightweight and 
heavy aggregates, decorative aggregates, etc., are minor 
in total tonnage and are not considered here. 


11 
and processed without changing their characteristics or 
appearance" (Bottge [1964], p. 1). Manufactured 
materials Getter as clay or shale) are removed from the 
earth and their characteristic or appearance is then 
changed. Processing the waste products of other 
industries yields by-products such as slag (a waste 
material from steel manufacturing). It is the naturally 
occurring aggregates with which this thesis is concerned. 

The materials themselves are given quality 
classifications based on their chemical and physical 
properties. In order for a quarry to supply a given 
product, the quality of the aggregate produced must 
conform with the quality of material required by the 
contractor. In New York State, for example, State 
specifications usually require a high quality material. 

In broad terms, mineral aggregates are | 
produced (mined and processed) at the supply point 
(quarry) and shipped to the demand point (construction 
Site) where they are used in the construction of our 
roads, buildings, bridges, etc. The price per ton paid 
by the buyer reflects the cost of the material, the 
variable costs associated with mining and processing 
it, the fixed costs associated with amortizing the 
processing plant, the future cost of land rehabilitation, 
profits to the quarry owner, and the transportation cost 
from quarry to the construction site. In oligopolistic 


situations where quarry suppliers are few in number, the 


ey 


competitive pressure which tends to keep proces down 
are minimal. In these situations, costs of delivered 


aggregates tend to be inflated. 
2.20 Production 


Sand and gravel quarrying is characterized by 
the removal of material from open pits (in the case of 
dry deposits) or by dredging when the materials lie 
under water. Crushed stone producers, on the other 
hand, work only dry deposits. This research considers 
three types of operations: (1) the processed sand and 
gravel operation, (2) the unprocessed sand and gravel 
operation, and (3) the crushed stone operation. 

The processed sand and gravel producer will 
process his material at a processing plant which is 
located at the quarry site or at a processing plant 
located at another site (in which case the unprocessed 
material must be transported to the processing site for 
processing and then to the points of demand). This 
processing consists primarily of washing, sizing, possible 
crushing to various sizes, and stockpiling. Aggregates 
produced by the processed sand and gravel supplier are 


a high quality (usually state specified) material. 


ue 

The unprocessed sand and gravel supplier sells 
his aggregates in an unprocessed form to be used as fill 
or sub-base material. After possible initial removal of 
overburden (topsoil) the material is sold in its natural 
form. In many cases, the unprocessed operator will allow 
individual contractors to remove their own material from 
his quarry, paying on a truckload rate. 

Crushed stone production is characterized by 
blasting large volumes of relatively large pieces of 
rock from the parent rock, primary and secondary 
crushing to smaller pieces, sizing, washing and stock- 
piling. The crushed stone operation requires processing 
plants whose initial costs are relatively high in 
comparison with the sand and gravel plant. These plants 
are located at the quarry site. 

Although they are not considered in this 
research, portable processing plants which can be moved 
from one quarry to another are also used in some sections 
of the United States, especially the Midwest. These 
plants eliminate the need for the operator to decide 
at which location(s) a fixed plant should be 
constructed. 

Each quarry operator can supply from one to 
many demand points. Competition within the processed 
sand and gravel, unprocessed sand and gravel, and 


erushed stone operations exists. It is assumed that 
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the buyer will select whichever quarry will supply the 
proper quality material at the lowest total cost. 
Although in reality, inequities such as political 
pressures, family ties, etc. exist, our model neglects 
these and considers only costs in determining project - 
quarry assignments. 

Competition also exists between the crushed 
stone producer and the processed sand and gravel 
producer since some construction projects can use gravel 
or stone interchangeably. Our model does not consider 
this Sb et eed per se. Its effects, however, can be 
studied by varying project requirements on the data 
input (see Appendix A). There is also competition 
between the processed and unprocessed sand and gravel 
operations since high quality sand and gravel can be 
used as fill material. Because of the higher cost of 
the processed material, however, it is rare that this 
will happen. 

Yearly production varies greatly from quarry 
to quarry. Quarries usually operate on an eight hour 
shift with operations terminating during the freezing 
months. Processed sand and gravel operations will 
supply from 50';000: tons to,more, than. 1,000,000 .tons 
per eee The unprocessed sand and gravel supplier 
will supply from as little as a few truck loads per 


year to 100,000 tons per year. Those quarries which are 


en a ee 
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supplying large amounts of unprocessed material are 
usually located in the general vicinity of large 
construction projects. The crushed stone operator 
produces from 150,000 tons to over 1,000,000 tons per 
year. If yearly demands on a quarry. greatly exceed 
the maximum yearly plant capacity, the operator can 
increase his maximum output by enlarging the existing 
plant or adding an entirely new plant. Although no 
major innovations are forecasted in the immediate 
future which will affect processing or mining methods, 
larger producers today are beginning to automate their 
operations by using central control rooms from which 
entire operations are monitored. 

The entry of new producers into the market- 
place is a function of demands created by the market 
and the availability of aggregate producing land which 
is able to provide material whose cost is competitive 
with other suppliers. Included in the economic deter- 
Mination of whether a quarry should be opened is: the 
type and size processing plant which will be required, 
the expected mining costs (based on the geologic 
configuration of the aggregate reserves), accessibility 
to transportation routes, and proximity to the market. 

Based on the availability of material 
reserve land, new operations will often sommence as the 


outgrowth of associated industries such as cement 


manufacturing, ready mix concrete, or simply a 
contractor who desires to produce his own material. 


This type of entry is not considered in this research. 


2.30 Consumption 


The construction industry in the United States, 


which accounts for slightly more than 10 percent of the 


Gross National Product (Jordan [1967], p. 7), creates 


the demand for mineral aggregates in the form of concrete 


and fill or sub-base material. Not only do new 
facilities such as roads, bridges, sewers, dams, 
buildings, etc. require concrete and fill, but there 
is also a demand created by the replacement and recon- 
ditioning of worn out structures. One cubic yard of 
concrete alone requires from 1200 to 2000 pounds of & 
coarse aggregate (crushed stone or gravel) and 800 to 
1500 pounds of fine aggregate (sand); the exact 
amounts are a function of physical size of the concrete 
section and the weather and exposure conditions 
affecting it (Portland Cement Association [1967]). 

-As examples of mineral aggregate usage, the 
concrete basement of a 30 X 40 ft. house would use 80 
tons of mineral aggregates, and one mile of four lane 
highway requires from 60,000 to 100,000 tons of 
aggregates. The Verrazano-Narrows Bridge, connecting 


Brooklyn and Staten Island, required 378,000 cubic 


yards of concrete in the anchorages alone (Just, et. al. 
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[1964], p. 45), and a total of 710,000 cubic yards of 
concrete (Ammann [1964], p. 41), some 1,000,000 tons of 
mineral aggregates. 

Since most mineral aggregate producers supply 
a market within their inmedaaite vicinity, their market 
and growth is a direct function of construction activity 
in that area. In regions whose population is growing, 
demand is for both new construction as well as the 
reconditioning of existing structures; in areas whose 
population growth is static or declining, the majority 
of the demand is for the replacement of worn out ¥ 
facilities.* 

The consumer of mineral aggregates can be as 
small as a man paving his driveway or as large as the 
Federal Government sponsoring the construction of a 
major highway complex. The job can require one truckload, 
or it may require many thousands of truckloads. 

Demand points for mineral aggregates are much 
greater in number than are the supply points. Although 
it is not always the case, this research assumes that 
each construction project will receive its material 
from one processed sand and gravel quarry, one unpro- 
cessed sand and gravel quarry, and one crushed stone 


quarry. It is further assumed that each contractor will 


*Personal correspondence with Henry McCarl, 
Senior Analyst, Vulcan Materials, Co., Birmingham, 
Alabama. 


choose that quarry which will supply the proper quality 


material at the lowest total cost. 


2.40 Transportation 


Transportation is the physical link between 
the producer and consumer. Three methods are presently 
being used to deliver aggregates to the construction 
site: 1) truck, 2) rail, and 3) barge. Of these, 
trucking is most widely used.* Although innovations 
in transportation techniques are not forecasted in the 
near future, one possible solution to the distance 
problem might very well be the development of new means 
of moving aggregates from quarry to construction site. 
This effect can be readily analyzed by varying the 
transportation cost parameter. 

When large quantities of materials must be 


shipped over long distances, rail and barge are often 


18 


used, depending on the proximity of the quarry to a rail 


or navigable water system. Even when aggregates are 
shipped by these methods, it is usually necessary to 
transfer the material to trucks at special unloading 


points for delivery to the construction site. 


*In the U.S., nearly 90% of the sand and 
gravel and 70% of the crushed stone is shipped by truck 
to the demand points (U. S. Bureau of Mines [1963], 
PRLELOG Ss 21143) 
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Depending on the allowable axle weights 
established by the individual states, trucks transporting 
from 10 to 30 tons are usually employed. These trucks, 
which are usually a dump type, can be owned by either 
the quarry operator, the building contractor, or a truck 
leasing firm (or any combination thereof). Unloading 
costs are low since special unloading devices are not 
required as they are in the case of barge and rail. 

In most cases, transportation charges are 
based on a ton-mile rate. Some companies, however, base 
their charges on a given rate from one zone to another, 
the rate being a function of transportation time as 
well as distance. Although these costs are sometimes 
lowered in order for a company to make their price 
more competitive, price negotiations of this type are 


not considered in our model. 
2.50 Reclamation and Multiple Land Use 


A necessary but not sufficient justification 
for allowing quarrying to continue within metropolitan 
limits is that the quarry site, once the operation has 
terminated, serves a positive value to its community. 
There is no doubt that the quarry of a few years ago 
was a strain on its community. It created noise, dust, 
safety hazards and detracted from the beauty of the 


surrounding area. To make matters worse, upon operation 
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termination the community was usually left with a gaping 
hole in the ground or a dangerous cliff on the side of 
a mountain. It is no wonder that zoning ordinances in 
and around cities have historically prohibited quarrying. 
Quarry operations today are becoming aware 
of the wants and needs of their surrounding areas. More 
and more are now building fences for safety, planting trees 
for beauty, paving access roads for dust control, and 
blasting only during certain hours to minimize the 
harmful effects of noise. Furthermore sites are being 
restored to a useful value upon operation termination. 
Speaking on reclamation in the sand and gravel industry, 
W. I. Thieme [1968], President of the American 
Aggregates Corporation and a pioneering leader in the 
area of reclamation stated; | 


I have observed at work over recent 
years two important simultaneous 
trends. The first is the realiza- 
tion by the sand and gravel 
industry that its rights to mine 
this mineral resource carries 

with it the obligation to reclaim 
the excavated area. Great 
progress in this respect has 

been made by the industry in the 
last decade. 


Further in the same speech, Mr. Thieme continued with: 


For the past five years the National 
Sand and Gravel Association has 
sponsored a research project on this 
subject at the University of 

Illinois which has received widespread 


ap 


national recognition.* Member companies 
which formerly regarded reclamation 

as a costly unnecessary expense now 
regard it as an integral part of their 
mining operations. 


Based on the University of Illinois 
research studies and our own company 
experience,- we find it highly 
desirable to pre-plan reclamation 
rather than accomplish it after 
mining is finished. Overburden 

and surplus materials must be handled 
in the course of operations anyway, 
and it often costs little more to 
place it somewhere "on purpose" 
rather than elsewhere "accidentally". 
The result of this pre-planning often 
is lower costs and better more 

timely reclamation than would other- 
wise occur. 


What exactly is reclamation as it applies to 
the sand and gravel industry? Speaking on this topic, 
Thieme [1969] suggests: 


According to Webster, the word 
"reclamation", as applied to land, 
is defined as "the act or process 

of restoring to cultivation or use." 
I should like to emphasize the 

words "or use" since this shows that 
reclamation can be accomplished 

by the preparing of land for a useful 
purpose, and this is not necessarily 
limited to cultivation, parks, or 
attempting the impossible task of 
restoring the land to its original 
condition. Another possible mis- 
conception I would like to correct 
is that this resulting use, after 
reclamation, is inferior to the 


we 


oo 


The reports resulting from the University of 
Illinois research study are listed in the literature 
cited. They are Bauer [1965], Johnson [1966], and 
Jensen [1967]. Schellie and Rogier [1963] also refers 
to the subject of rehabilitation. 


original condition of the land. 
Very often this is not the case, 
and the end use may be more 
desirable than the virgin ground. 
Thus, in many of our crowded 
metropolitan areas a hole in the 
ground is worth more, economically 
and socially, than the original 
solid terrain. 

Restoring a land to a previously planned 
condition is an integral part of the concept of multiple 
land use. This concept is twofold: (1) The same tract 
of land can be used for more than one purpose at a given 
time (Clawson, “et "al “(196075 py 36))piand (2) over 4 
period of time, land can serve more than one purpose. 

It is the latter concept which is important to reclama- 
tion of mineral deposits. 

Depleted quarries are being used for a variety 
of purposes. In most cases, however, it was not 
decided until after the quarry terminated its operation 


what function the land would serve. A notable exception 


is the San Fernando Valley, California, where plans 
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were made to quarry for sand and gravel, use the depleted 


quarry for the disposal of solid waste, and then to 
cover He area and construct a residential community 
(Goldman [1959]). 

A well established reclamation plan can be a 
powerful weapon for allowing quarrying in metropolitan 


areas. In the future, the quarry operator will most 


likely be required to provide such plans before commencing 


his operation. 
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2.60 Urban Planning and Zoning 


City and town planning is a science, 
an art, and a movement of policy 
concerned with the shaping and 
guiding of the physical growth and 
arrangement of towns in harmony 
with their social and economic 
needs. We pursue it as a science 
to obtain knowledge of urban 
structure and services and the 
relation of its constituent parts 
and processes of circulation; as 

an art to determine the layout of 
the ground, the arrangement of 

land uses and ways of communication 
and the design of the buildings on 
principles that will secure order, 
health, and efficiency in 
development; and as a movement 

of policy to give effect to our 
principles (Haar [1959], p. 46). 


In a Utopian situation the urban planning 
process might proceed as follows: individual specialists 
would forecast the needs of the community (its 
transportation, recreation, housing, etc. requirements). 
These specialists would then discuss as a group the 
interactions caused by their individual needs. As a 
result of the interactions, the individual requirements 
would then be altered. This process would continue 
until an overall, coordinated plan satisfying all 
specialists is formulated. This Master Plan would 
then dictate the growth of its community, using zoning 
ordinances to act as the legal method by which the 
Master Plan would be enforced. The plan would have to 
be dynamically flexible in order to be able to accept 


changes as the community grows. 


24 

In the real world, master plans are not 
developed in the above manner. Coordination and the re- 
evaluation of specific areas is not as prevalent as it 
might be. Furthermore, it is the local towns, counties, 
etc. who develop the zoning ordinances. This policy 
tends to satisfy the demands of its local citizens, 
but very often at the expense of neighboring communities. 

This research attempts to show how the 
coordination of planning and zoning on a larger scale 
can be beneficial to the community as a whole. The 
premise is that what is "best" for one might not be 
“bhest,” fon waa, 

Zoning ordinances are the legal means by which 
urban land usage is controlled. For the purpose of 
this research, the only zoning restrictions considered 
are those which allow or disallow removing naturally 
occurring material from the earth (quarrying), and 
processing of the ranean tee The decisions are strictly 
binary (yes-no). The effect of zoning which limits the 
amount of production, by limiting, for example, the 
depth below the surface that the quarry operator can 
dig, can be studied by varying the quarry reserve on 


the input data cards. By varying the quality, quantity, 


en 


and zoning laws, the effects of planned hygrading* can 


be investigated. 


removing 
profits. 
is based 
for only 
material 


pverdding in the mineral industry means 
only higher quality material for immediate 

To hygrade connotes waste. Planned hygrading 
on the assumption that if land is available 

a short time, it is better to remove some 
than to let it all go to waste. 
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CHAPTERS 211.04 
RESEARCH METHODOLOGY - 
S210" Introduction 


The system which describes the mineral aperagate 
industry and its relationship with the economy is highly 
complex. Connors and Teichroew ([1967], p. 93) suggest 
five methods for solving dynamic models, and rate: them 
in order of decreasing desirability. 


1) Analytic Techniques: The optimum 
solution can be expressed as a. 
function of the state variables. 

2) Iterative Algorithms: The optimum 
solution can be computed numerically, 
for any given values of the state. 
variables, by a series of computa- 
tions which proceed from one 
solution to a better one. 

3) Search of All Alternatives: All 
feasible alternatives are enumerated, 
and the value of the objective 
functional is computed for each one. 

4) Heuristic Techniques: A sequence 
of feasible alternatives is 
generated, and the best one is 
selected. However, there is no 
guarantee that a better one does 
not exist. 

5) Simulation: The outcome of a decision 
is computed by following through 
a "model" of the process. 


Solutions 1 and 2 presume a knowledge of the mathematical 
structure of the model. Solution 3 and 4 assume that all feasible 
alternatives are known. None of these cases applied 

to this research. Therefore, in order to learn more 


about the components of the system, a simulation model 
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has been developed which will both aid in the analysis 
of the system and act as a predictive model for planning 
purposes. 

Simulation, which is described in the following 
sections of this chapter, enables the Ret exechers to 
study the effects of changing various parameters, 
variables, and decision processes included within the 
model. From the analysis of the sensitivity of the 
various components of the model, future research can be 
approached and conducted in an economical fashion. 

A simulation model also enables its user (the 
planner, for example) to find out how the system can be 
expected to react to various planning schemes. It 
describes “what will happen if---?" rather than says, 
“the optimal strategy would be---." Using simulation 
combined with heuristic techniques, the "best" 


alternative can be selected. 
3.20 Simulation - A General Description 


Simulation involves the development of a 
mathematical or logical model (or combination of the two) 
which displays certain properties of the system which 
it 21s sintended to .describe.; -Shubik. ([1960], p..909) 
defines simulation as: 

A simulation of a system or an 
organism is the operation of a model 
or simulator which is a representation 


of the system or organism. The model 
is amenable to manipulations which 


would be impossible, too expensive 

or impractical to perform on the 
entity it portrays. The operation 

of the model can be studied and, from 
it, properties concerning the behavior 
of the actual system or its subsystem 
can be inferred. 

Naylor, et al ([1966], p. 3) suggest that the 
usual interest is in models which simulate highly 
complex systems such as an industry or an economy; that 
the nature of the models is mathematical or logical, 
rather than physical; that the models are primarily 
developed for analysis on a digital computer; and that 
the systems which are simulated are time dependent - 
dynamic. 

Under these assumptions, his restricted 
deta na lone) So 

Simulation is a numerical technique 
for conducting experiments ona 
digital computer, which involves 
certain types of mathematical and 
logical models that describe the 
behavior of a business or economic 
system (or some component thereof) over 
extended periods of real time. 


It is this’ definition to which tits resceccrereterse 


when "simulation" is described ‘or discussed: 
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Although simulation models have been classified 


in a number of ways, for this research the classification 


scheme suggested by Naylor has been chosen. Based on 
the time element involved, the model can be either 
static or dynamic. A static model is one where time is 


not a factor, or only one specific time period is being 
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studied. The dynamic model is one which is time 
dependent - where the outcome during a given time period 
is a function of, or dependent on, what happened in 
previous time periods. The model developed in this 
research is, in fact, time dependent (we are simulating 
over time the demands on mineral resources) and is 
therefore classified as dynamic. 

Models may also be classified as either deter- 
Ministic or stochastic. The deterministic model is 
one in which all elements are known with complete 
certainty. For example, the life of a quarry is a 
given value, it is not a number whose value is expressed 
by a probability density function. Furthermore, all 
decision paths are taken with complete certainty; the 
model does not say for example, that Meo Wal) “ser sco a Bt 
with a probability of 60% or to "C" with a probability 
of 40%. The stochastic model, on the other hand, has 
at least one element (an input value, decision branch, 
etc.) whose value is determined by a probability function 
(usually using some form of pseudo-random number 
generator.) The model developed in this research is 
deterministic. All input values are accepted as 
strictly determined values, and all decision branches 
are known with complete certainty. A discussion on 
adding probabilistic elements to the model is contained 


in Chapter VII, Section 7.20. 
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3.30 Simulation and Urban Problems 


Even though the use of computer simulation 
models is a relatively new "problem solving" technique, 
it is rapidly being adopted for studying a variety of 
urban problems. The reasons for this trend are 
summarized by Wolfe and Ernst ([1967], p. 50). 


A combination of developments -- 
principally the computational capacity 
offered by digital computers, the 
acquisition of increasingly complete 
data on urban physical and population 
characteristics, and the development 
of improved understanding of the 
mechanisms at work that determine 
land use in urban areas -- has 
gradually led to a number of projects 
on which large-scale systems 
analysis, or model building, has 

been employed in an effort to 
Simulate the operations and inter- 
actions of a mass of variables 
relevant to urban planning. 


In "A Conceptual Framework for Urban Planning 
Models", Kilbridge, et. al. [1969] review the present 
day status of urban planning models and present a 
framework for their analysis. They analyze twenty 
urban planning models from the viewpoint of the subject 
of the model, its function, the theory upon which the 
model was constructed, and the methods employed by the 
model to achieve the stated function. They suggest 


that: 
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Strictly speaking, simulation refers 

to the way in which a model is used 
rather than to the structure of the 
model itself. However, it is sometimes 
possible to distinguish simulation 
models from analytic models on the 
basis of mathematical structure. 
Analytic models contain precise 
mathematical statements which can be 
solved--at least theoretically--by 
standard mathematical operations. But 
Simulation models usually include non- 
mathematical statements about 
relationships between elements which, 
though sufficiently clear for 
conversion to a computer program, 

have no mathematic "solution" (Kilbridge, 
et. Shiz PIGS hs Pp. B-259). 

Included in this article is an annotated 
bibliography of the twenty models discussed and a 
general bibliography of urban models. 

Further examples of problems where simulation 
techniques have been applied can be found in "Operations 
Research for Public Systems" (Morse and Bacon [1967], the 
published results of a 1966 Summer program at the 
Massachusetts Institute of Technology on "Operations 
Research for Public Affairs." Included in this 
publication are: 

1) Overviews to simulation in urban planning, 

2) Transportation and traffic control 

simulations, 

3) A discussion on simulation in medical 

and hospital practices, 
u) Excellent bibliographies on the 


applications of operations research to 


urban problems. 


A highly detailed model describing the special 
organization of human activities within a metropolitan 
area has been constructed and tested on the City of 
Pittsburgh by Lowry [1964]. This model will allow 
planners to observe the effects of public decisions and 
to predict changes over time of such entities as employ- 
ment, population growth, and transportation networks. 

A game-simulation has been developed by Duke [1964] 
which allows planners to investigate the effects of 
Simultaneous decision making (by specialized teams) on 
a hypothetical city. 

In order to simulate a complex urban system, 
massive amounts of data and/or information about the 
system must be known. Before the age of the modern, 
high speed digital computer, these data were not 
readily available. Through the computer, we now have 
the potential ability to analyze tremendously large 
amounts of data in relatively short periods of time. 

The data, however, is still not available, and the data 
which is available is not in a form which can be readily 
manipulated or analyzed. The published results of a 
1967 Symposium on the Applications of Computers to 

the Problems of Urban Society (Socio-Economic Planning 
Sciences [1968]) shows the growing awareness of the 
applicability of the computer to urban problems. 
Articles in the journal discuss the problems of data 


collection and describe the need for urban data banks. 
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There is no doubt that the development of a 
computer simulation is a costly, time consuming endeavor, 
due in Bart oto the unavailability of data. As urban 
data banks are established, it is the opinion of this 
researcher that simulation of urban problems will become 


widely used as a planning and problem solving aid. 
3.40 Simulation and the Mineral Resources 


Noticeably lacking in the planning models 
described above was the consideration of the allocation 
of mineral resources. This does not mean, however, 
that simulation techniques have not been applied to 
problems of resource management. 

Watt [1964] discusses simulation models which 
have been applied to studying problems of inland fish 
flow in the State of Washington, the control of water 
_ resources, and pest control in Canadian forests. 
Hufschmidt and Fiering [1966] describe the organization, 
design, and results of a model for simulating a water 
resource system (specifically the Lehigh River Basin in 
Panna hone, 

Simulation models are presently being used to 
analyze specific problems relating to mineral resources. 
Griffiths and Drew [1964] describe a model which aids 
in the exploration for oil and gas. Maoh Connor, 
and Eicher [1964] describe how simulation can be used 


to aid in the sampling of the chemical properties of 
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rocks. Nelson [1964] developed a simulation model which 
describes the characteristics, under various ‘input 
situations, of a locomotive which is used for hauling 
materials from a Hee Our studies, however, have not 
found any simulation models which have been dpplied 


to aid in the planning of mineral resources. 
3.50 Specific Computer Simulation Techniques 


This section describes the many decisions 
which were made prior to the development of MIRSIM (the 
MIneral Resource Simulation Model). It outlines the 
problems which are encountered when developing a model 
of this nature, the choice of computer language, and 


the question of program efficiency. 
3.51 Model Formulation 


The purpose of MIRSIM is to simulate over a 
time period the usage (and associated costs) of mineral 
aggregates in a geographic region. In order to 
accomplish this task it is necessary to describe all 
the variables, decision processes, and interactions 
between producers and consumers in a form which can be 
analyzed by a computer. 

The first step is to describe the physical 
properties of the geographic area being ne eee Two 


methods commonly being used are the grid overlay 
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GRID OVERLAY 


BLGURE. 3...) 


and the ring and zone overlay which is commonly used for 


transportation models. 


RING AND ZONE OVERLAY 


FIGURE ’-3..2 


| This research has chosen to use the grid 
overlay technique for three reasons: 

(1) The interest is in transportation 
distance between any two grids within the 
system, not just to and from center city, 

(2) The use of the equal area grid facilitates 


computational techniques, 
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(3) It is a commonly used method of data 

description, hence data from outside 
agencies can be readily adapted as input 
for sMIRSiIM:. 

Even though initial runs have been made using 
only the grid overlay technique, the model can readily 
be adapted to use rings and zones by changing the 
subroutines which determine distances between points 
and the associated transportation costs (see Subroutines 
SRDIST € SRTRCST, Appendix B, Section B3,9 and.B3.10). 

Schlager ([1965], p. 106) describes very 
succinctly the development of a iand use model: 


All land use plans for areas ranging 
from the smallest subdivision to 
multi-state regions may be expressed 
symbolically by three sets of 
variables: 
1. The type ‘of.jJand use (quality 
variable) 7 
2. The density of land use 
(quantity variable) 
3. The geographic location 
(location variable) 
Typically, the land area concerned 
will be subdivided into a grid 
of "zones" of equal area. The 
location variable is determined 
by the geographic coordinates of 
the zone in question. For each zone, 
the types and densities of land uses 
may be expressed as a measure of 
the activities in that zonal area. 
The amount of detail provided will 
depend on the coarseness of the grid. 
For small areas, a zone may be as 
small as individual residential lot 
parcels. In large regions, they 
may be counties or even states. 
The key point to be observed is that 
all land use plans may be expressed 
by these three classes of variables. 


The choice of the grid size and coverage was 
a critical step in the development of the computer model 
The total grid system must encompass the entire 
geographic area being studied. The determination of 
the physical boundaries is both geologic and eeGnomia 
in nature and is discussed in Section 3,60. Once the 
boundaries are determined, the region enclosed by them 
is then divided into a number of rectangular grids of 
the same size. The size (or conversely the number) of 
the rectangular grids within the system must then be 
determined. If it is assumed that the computational 
facility which will analyze the simulation model has 
infinite core memory capacity, the size of the grid is 
only a function of the amount of detail required within 


each grid; the total number of grids is determined by 
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the area enclosed by the total grid system. The larger 


the grid, the less uniquely it can identify the entities 
within it, 

In actuality, computer memory is limited. 
Hence, the number of grids is physically constrained 
by core capacity (see Appendix B, Section B.3). 
The number of grids is also constrained by the time 
limitations and the ability of the model users to gather 
the tremendous amounts of data required. The point 


which must be made is that smaller grids (and hence 


more within the system boundary) will usually add realism 


to the simulation procedure at the expense of a costlier 
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data collection process and a program whose execution 
time is slower because of the increased number of searches 


required. 
3.52 Language and Model Efficiency 


An important step in the construction of a 
computer simulation model is the choice of computer 
language (or languages) in which the model will be 
programmed. Five factors must be considered in the 
selection of the computer language: 

1. The structure of the problem, 

2. How the model will be used and who will 

Use tre 

3. The programmer's capabilities, 

4. Programming time and budget requirements, and 

§. Available compilation software. 

Very general computer languages have been 
developed for handling a wide array of problems, and 
languages have been developed for specific problems. 

For example, FORTRAN and ALGOL are general purpose 
languages which are usually applied to problems of a 
scientific nature involving the solving of mathematical 
relationships. GPSS has been developed for analyzing 
scheduling and waiting line problems such as the job shop 
or the simulation of a computer ineeet at sane COBCL is 


for business data processing type applications, and so 
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forth. The point that must be made is that the structure 
of the problem which is to be computerized provides an 
indication of the inourde which should be used. 

The second consideration is who will use the 
program and for what purpose. Programs which are going 
' to be used only a few times (or which are relatively 
short with respect to computational time) need not be 
efficient with respect to execution time. Programs 
which are going to be changed by their user should be 
written in a language which is understandable to that 
user. Programs which are going to be run on more than 
one computer should be written in a language which is 
widely implemented. 

If the program is relatively large, the 
programmer must be extremely rb Fi dvent in the chosen 
language. Since budget constraints very often limit 
the amount of time and effort which can be spent in 
the programming phase, the choice of language must be 
one which can complete the job under the given constraints. 
Finally, the language must be implemented on at least 
the primary computer facility. 

MIRSIM is a Yiwu ee eoe model with certain 
properties of a scientific type program. As such, 
FORTRAN and GPSS were initially investigated. GPSS 
was immediately ruled out since the structure of the 
mineral aggregate producer - consumer system is very 


different from problems whose structure is similar to 


LO 
the job shop. In 1966, a FORTRAN program was constructed 
and tested on a hypothetical city using a 10 x 10 grid 
overlay (Wallace, Dunn, and Bishko [1966]). Execution 
time was very slow (on the order of eight minutes for 
a 20 year time period). Further indications that 
FORTRAN was not the proper language arose when attempts 
to enlarge the grid system resulted in exceeding core 
memory capacity. 
MIRSIM has been written to be used repetitively 

by planners. To be an effective planning tool it must 
be relatively inexpensive to operate. The planner will 
certainly be more willing to test various planning 
alternatives when a twenty year simulated computer run 
takes a matter of minutes, rather than hours. As such, 
program efficiency is a highly desired quality. In 
order to minimize execution time, the grid information 
should be stored in core, rather than on peripheral 
equipment such as tape or disc. Efficient use of core 
provides this capability. Naylor ([1966], p. 38) stated 
‘One te 

Although we can reduce programming 

time by using a simulation language, 

we must usually pay a price for 

this benefit in terms of reduced 

flexibility in models and increased 

computer running times, 

For these reasons, MIRSIM has been written in 

IBM/360 Assembly Language. This choice unfortunately 


restricts eventual model users to an IBM System/360 


computing system and makes programming changes difficult. 


3.53 Assembly Language Techniques 


The use of Assembly Language has made possible 
a highly efficient use of core memory for the storage 
of the grid information, thus allowing for a study which 
is capable of including many more grids than would a 
language such as FORTRAN. (The number of grids which 
may be investigated is a function of the amount of 
available core and is discussed in Appendix B, Section 
B.3). Many of the entities which describe a grid are 
binary - for example is a grid a quarry (yes or no). 
Assembly Language allows the convenient handling of 
individual bits (binary digits) of core, rather than 


manipulation of words (32 bits on System/360) as would 
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be done in FORTRAN. Furthermore, the decision processes, 


which constitute a very large programming section of 
the model, are in many cases binary. 

More important, during execution of the model, 
numerous searches of the grid system must be performed. 
For example, if a project needs to have a quarry 
assigned to it, all quarries are searched and the one 


which satisfies certain criteria picked. Using FORTRAN, 


these searches would be done using a DO loop, graphically 


portrayed as follows: 


CRLTERETAVESTIMATION 
PROCEDURE 
(such as Cost 


a Sey a ; 
; — 
ae | ; : 
Criteria 

amu ostiMmacion 

Q Procedure 
End 
é 


PICTORIAL REPRESENTATION OR SEARCH 
PROCEDURE (FORTRAN) 


FUIGUREASs 3 


From this example, it is obvious that all grids must be 
searched even though there might be only a few quarries 
an the ee grid system. Assembly Language makes 
possible chaining techniques whereby each quarry (for 
example) has associated with it the core address of the 
next quarry within the grid system. This search 


technique is pictured in Figure 3.4. 
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Start 


ASSEMBLY LANGUAGE SEARCH PROCEDURE 


FIGURE 3.4 


As a result of the dynamics of the model, it 
is often necessary to add or delete items from a chain. 
Addition of an item to a chain is a simple procedure. 
Since the order of items in a chain has no significance, 
new items will be added to the end of the existing chain. 
Problems, however, arise when it is desired to delete 
an item From a chain. The most efficient means of 
doing this is to both forward and backward chain all 
items. This means that not only should an item point 
to the next item in the chain, but it should also point 
to the one preceding it. Since this requires the use 
of an extra pointer (thus requiring more core space) 
this model forward chains’ only at the expense of a less 


efficient removal procedure. 
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yy 
Another advantage has resulted from using 
Assembly Language. In FORTRAN the structure of arrays 
necessitates the fe of a grid overlay which is 
rectangular. Assembly Language procedure used in MIRSIM 
allows for a variety of array patterns, the only limit 


being the total number jofegrids (see Appendix B, Section B.3)- 


FORTRAN OF 
ASSEMBLY 


ASSEMBLY 


EXAMPLE OF GRID OVERLAYS 


Pel GU iE aaa 


3.60 Pilole study, 


In order to test the feasibility of using 
Simulation as a "problem solving" technique, and in 
order to test how well it responds as a real world 
Simulator, it is necessary that the simulation model be 


run and tested with real data on a real problem. 


Once we have formulated a set of 
mathematical models describing the 
behavior of our economic system and 
have estimated the parameters of 

the operating characteristics on the 
basis of observations taken from the 
real world, we must then make an 
initial value judgment concerning 
the adequacy of our model. That is, 
we must test the model. Clearly, 
there is very little to be gained 

by using an inadequate model to 
carry out simulation experiments 

on a computer because we would 
merely be "simulating our own 
ignorance." 


This step of the simulation procedure 
merely represents the first stage of 
testing a simulation model prior 

to actual computer runs. At this 
point we are primarily interested 

in testing the assumptions or inputs 
that will be programmed into the 
computer (Naylor, et. al. [1966], 

fe oo). 

Although MIRSIM has been constructed as a 
model which can be applied to studying any region in 
the country, it has specifically been constructed from 
knowledge and information gained in the Tri-City area 
(Albany, Troy, and Schenectady, New York). Using 
Tri-City area data as input to the model, program 
debugging and model validation have taken place. Results 
of real input parameter data-have made possible sensi- 
tivity analyses which will act as guides for future 
studies. Furthermore, the types of data and actual 
problems of data collection have been well delineated 
using the Tri-City area as the pilot study area. 


The Tri-City area was picked as the pilot study 


region for three reasons: 
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1) It is a typical metropolitan region whose 


quarry suppliers can be bounded by a 
convenient grid system, 

2) The geology of the area is known, 

3) Available data exists in the form of the 
Capital District Transportation Study 
(see below) and through various New York 
State offices in Albany, 

4) Rensselaer Polytechnic Institute is 
located in the heart of the region, thus 
facilitating the data collection 


process. 
3.61 Model Validation 


Every author writing on the general subject 
of simulation, and every experimenter constructing 
or using a specific simulation model is faced with the 


problem of validation. Amstutz ([1967], p. 380) 
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suggested five levels of validity: viability, stability, 


consistency, duplication of historical conditions, and 
prediction of future states. Baisuck, et. al. [1967] 
borrow from psychometricians and suggest four types of 
validity: predictive, concurrent, content, and 
construct. Hufschmidt and Fiering [1966] tailor their 
validity criterion to their specific water resource 
Simulation. ene philosophically argue whether a 


Simulation model can, in fact, be validated. 
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Rather than give a specific definition of 
validation, this researcher feels that validity procedures 
must be adapted to the specific problem being investigated. 
In theory, levels or types of validity no doubt exist. 
However, it is very often infeasible (or even impossible) 
to validate a model at each of the suggested levels, or 
to pass it through a number of validating tests. 
Furthermore, the costs of certain validating procedures 
is often prohibitive. 

What must be emphatically stated, however, is 
that the analysis of only the simulated output is not 
sufficient. The input data and the model itself must 
also pass validating criteria. For purposes of this 
research, validation consisted of an evaluation of the 
quality of the input data (which nonaed testing its 
accuracy and completeness), an assessment of the model 
itself, and an analysis of the computer generated output. 


These procedures are discussed in detail in Chapter VI. 
3.62 Data Collection 


‘The data collection oreduss can be classified 
into ewe categories: supply and demand. (A detailed 
description of data requirements can be found in 
Appendix A.) 

Data affecting the supply of mineral aggregates 
consists of a survey of all active producers and an 


identification and mapping of all potential supplies. 
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Difficulties arose (and no doubt will continue to do so) 
because quarry operators were reluctant to make known 
cost data and iat reserve estimates. Unless the 
study area has been geologically surveyed in great 
detail, the location of potential supplies (and sub- 
sequent estimation of reserve amounts, quality, and 
ownership) can be very difficult to obtain. . 

Data concerning supplies may also be obtained 
through agencies such as sand and gravel and crushed 
stone associations (both state and national), geologic 
surveys, the United States Bureau of Mines, and others. 
These agencies should be screened before the actual 
data collection process begins to provide an awareness 
of existing data. 

The avenues of i dboseuets the collectien of 
demand data are many. They all, however, require that 
a land use and transportation study of the area has been 
made. The output of the transportation study determines 
the methodology of forecasting material demands. In 
general, the transportation study will yield on the basis 
of small geographic units Daa eae for residential 
and non-residential land usage, and population projections. 
These forecasts are then converted into first construction 
requirements and finally into mineral aggregate usage. 

Specific methodology concerning conversion 
and processing of raw data into the form required by 


MIRSIM is discussed in Chapter V. 
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3.63 Pilot Study Area 


The Tri-City area includes three major cities: 
Albany, Schenectady, and Troy, New York. Included in 
the study area are the major portions of Rensselaer, 
Albany, Saratoga, and Schenectady counties. The 
boundaries of the study area enclose a 30 x 40 mile 
region with a population of over 500,000 people (New 
York State Department of Commerce [1963]). 

The great majority of mineral aggregates 
required are found within the limits of the grid system. 
Included are some 10 processed sand and gravel quarry 
operations, 40 unprocessed sand and gravel operations, 
and 5 crushed stone operations. 

The Hudson and Mohawk Rivers and Penn Central 
Railroad provide water and rail service to the tri- 
cities, and the New York State Thruway and Adirondack 
Northway provide the major highway system into the 
area. Although little, if any, mineral aggregates are 
delivered to the study region from outside the grid 
system by these transportation complexes, they provide 
a means by which experimentation can be conducted to 
study the cost effect of shipping material from more 
distant points. 

A simplified map of the Tri-City area is 


presented in Figure 3.6. 
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CHAPTER IV 


MIRSIM (MINERAL RESOURCE SIMULATION MODEL) 


4.10 General Description of the Simulation Process 


The purpose of MIRSIM is to simulate the inter- 
action between mineral aggregate users and suppliers in 
a geographic region over a period of time. The nature 
of the simulation process requires the limits of the study 
region to be defined and the area within the limits to 


be divided into grids as shown in Figure 4.1. 


- Central City 


EXAMPLE STUDY AREA WITH GRIDS 


FIGURE 4.1 


52 
All quarries, potential quarries, developments forecasted, 
and works-in-process must then be identified on the study 


region map as shown in Figure 4.2. 
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Work-In-Process 


Development Forecasted 
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(osty ~ Potential Quarry 
'O} ~ Quarry 


STUDY AREA WITH SUPPLY AND DEMAND LOCATIONS 


FIGURE WZ 
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The grid overlay is then placed on the study region, and 
the characteristics of each grid identified and prepared 
for final analysis (Figure 4.3). The specific details 
of the input data are described in Chapter V and in 


Appendix A. 


FIGURE 4.2 WITH GRID OVERLAY 


FIGURE 4.3 
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The data are then punched onto tabulating cards 
(see Appendix A) for the computer simulation experiments. 

The model begins its analysis in (simulated) 
year 1. It assigns quarries to all works-in-process and 
developments forecasted which are scheduled to begin 
during year 1 and simulates project development by updating 
quarry and project lives. All costs resulting from mineral 
aggregate usage are accumulated for further analysis. At 
the end of the first year, the output generated by the 
first year activities is printed, and the year updated. 

At the beginning of year 2, all existing 
quarries are investigated to determine whether they have 
been depleted or zoned out as a result of activities in 
year 1. For all those which have, new quarries are 
established (for those operators wishing to self-preserve 
their operation) and the zoned out or depleted quarries 
removed from the system. 

The model then begins the reassignment of 
quarries to works-in-process — and so on — throughout 
the simulated time period. 

Although the above example is highly simplified, 
it provides the reader with a basic understanding of how 
MIRSIM operates. The details of the decision processes 
and of the program itself are provided in the remainder 


ofthis chapter. 
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4.20 General Overview of MIRSIM 


For programming ease, MIRSIM is divided into 
four separate control sections, each of which carries 
on specific functions needed to accomplish the overall 
task of simulating mineral usage for a (simulated) time 
period. The four sections are: the input section 
(MINEINPT), the self-preservation model (BEGINIT), the 
data processing and quarry assignment model (MINEDP), and 
the subroutines used by all sections (MINESUBR).* The 
control sections and subroutines are linked to each 
other through the use of standard IBM linkage conventions, 
and parameters passed through a region common to all 
control sections called COMMON (see Figure 4.4). The 
function of each of the control sections is presented 


in detail in the remaining sections of this chapter. 


* ; : 
The location of the detailed flow diagrams 
and source coding statements for these sections: 


Source Coding, 
Appendix D, 
statements 


Flow Diagram, 
Appendix C, 
pages 


MINEINPT 


BEGINIT 


MINEDP 


MINESUBR 


gaa" 3709 
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The general flow diagram of the entire simula- 
Sion maaan 18 presented in“Figure "ro. Ines 1 oy 
diagram describes in general terms the different functions 
performed by the simulation model without regard to the 
computing aspects encountered. The detailed set of 


flow diagrams is presented in Appendix C. 


4.30 Input Contnol, Section (MINEINRT) 


The input control section is responsible for 
reading and converting to proper core configuration the 
options, outside quarry cards, and initial grid informa- 
tion cards (see Appendix A). In addition: (1) all 
initial chaining is performed, (2) quarry addresses are 
assigned to all works-in-process and developments fore- 
casted, and (3) a scanning of the grid information cards 
for certain obvious inconsistencies is performed, 
resulting in operation termination if an error(s) occurs. 
If errors exist, all cards in error are listed prior to 
job termination; if no errors occur, control is passed 
to the self-preservation model control section. The 
input control section is not reinvoked during the 
Simulation run. 

The detailed flow diagram for the input section 
is presented in Appendix C, pages 1-3. Statements 
2847-2866 initialize all accumulators used in other 
sections of the model. Statements 2870-2984 read in 


the option cards and transportation cost curve (see 
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Appendix A, Sections A.2 and A.3). Statements 2987- 
3028 read in and convert to proper format all potential 
quarry suppliers not included within the limits of the 
grid system (see Appendix A, Section A.4), and statements 
3029-3304 read the grid information cards and convert 
them to their proper core configuration 2 Appendix A, 
Section A.5). 

As previously discussed (Chapter III, Section 
3.53), chaining is essential for model efficiency. It 
is one of the functions of the input routine to establish 
the initial chains for all quarries, potential quarries, 
marked ne tceneet and developments forecasted. The 
results of chaining are pictorially described below, 
using aS an example, the chain of quarries. 
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Also set up by the chaining section are the 
core addresses of the first and last items in the chain. 
These addresses facilitate the search procedure and 
make the addition of new items to a chain very efficient 
from a computational standpoint. 

If it is known that a certain quarry is 
supplying a work-in-process (or will supply a forecasted 
development), the input section (statements 3353-3489) 
replaces the row and column of the quarry supplier (which 
are read in as input) with the core address of the 
location of the specified quarry. 

Finally, the input section is responsible for 
determining which quarry operators desire to self- 
preserve their operations. If an operator owns at least 
one other quarry or potential quarry, it is assumed 
that he wishes to self-preserve his operation; state- 
ments 3333-3352 set the bit which indicates this 


decision. 
4u.4ud Self-preservation Model (BEGINIT) 


The self-preservation control section 1s the 
heart off "the overall) Simulation; ims 10 wnloesecrion 
that the decisions are made as to when to open new 
quarries, the types of quarries that are to be opened, 
and, if alternative locations exist, where the new quarry 


should be established. 
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Through personal contact with operators in both 
the sand and gravel and crushed stone industries, state 
and federal officials, U. S. Bureau of Mines personnel, 
and academicians the decision alternatives have been 
delineated and the form of the self-preservation model 
determined. As is true in the development of any simula- 
tion model, simplifying assumptions had to be made in 
order to convert the actual decision procedure to one 
which could be mathematically end logically described in 
the computer model. These assumptions are discussed when- 
ever applicable. 

A quarry operation may be forced out of existence 
in three ways: (1) The active quarry can be physically 
depleted, (2) the quarry can be zoned out of existence, 
or (3) poor business practices can force bankruptcy. 

This model considers only cases 1 and 2. 

When an owner of a quarry is faced with the 
loss of a quarry and it is his desire to remain in busi- 
ness (self-preserve), he has to choose the location and 
type of the new quarry operation he wishes to establish. 
In many ‘cases, this choice necessitates an initial 
expenditure - for a processing plant, removing overburden, 
building access roads, etc. - of over $500,000 fora 
sand and gravel operation and $3,000,000 for a large 
crushed stone operation. Since his competitive position 
within the industrial framework is highly location 
oriented, the alternatives which the operator must consider 


are numerous. 
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If an operator desires to self-preserve, he can 
choose his new quarry from those properties directly 
owned by him, or available to him.* It is assumed in 
all self-preservation cases which follow that these are 
the only choices available to the owner of the zoned out 


or’ depleted ‘quarry. 
4.41 The Buyers' Influence on Quarry Location 


Although in reality there can be other TACLONS , 
in MIRSIM it is assumed that the purchaser of mineral 
aggregates will choose as his supplier whichever one is 
able to supply the required quality waveriAl ss at the 
lowest total cost (including transportation cost). For 
example, New York State construction jobs are bid upon, 
and the lowest cost supplier is chosen. 

Therefore, in this model, all decisions 
concerning the establishment of new quarries are based 


on which quarry location will be most competitive, i.e. 


“In the data collection process, it is very 
difficult to establish in all cases ownership of potential 
quarries. In those cases where ownership is unknown, the 
land is made available to any operator wishing to self- 
preserve. 


Je 


a 


“When a certain quality material is required 
at a construction project, that quality or any better 
quality can be used. For example, using New York State 
quality specifications, if an C qualitysstone is) 7equined 
an A, B, or C quality stone may be used. 


65 
which will be able to supply material at the lowest 
possible cost. In reality, the quarry operator who is 
faced with choosing a quarry site from among a set of 
alternative sites estimates which of these sites will be 
most competitive. This estimation procedure consists 
of his evaluating the potential market pattern and 
choosing whichever site will supply his estimation of 
the future market at the most competitive price. In 
MIRSIM, the future market demand pattern is determined 
by finding the weighted geometric center of future demand 


(see Section 4.45). 
4.42 Cost Determination 


As discussed in the previous section, costs 
from quarries to demand points are established and the 
lowest cost alternatives chosen. Three classes of costs 
are considered by the model: the fixed and variable 
eosts associated with the quarry itself and the trans- 
portation cost from the supply point to the points of 
demand. 

The tixed cOst Consists of four elements: 1) 
the depreciation cost of the initial processing plant, 
2) the. costs associated with preparing the quarry for 
operation (such as removing overburden and establishing 
access roads), 3) the cost of the land itself, and 4) 
the costs of land rehabilitation. For the one-quarry 


operation, the fixed cost per ton which is reflected in 
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the selling price of the material is determined by 
dividing the total fixed cost (less allowances - see 
Section 4.43) by the estimated life of the quarry. In 
the multiquarry operation where one quarry is acting as 
a processing plant for at least one other quarry the 
fixed cost per ton is determined: by dividing the fixed 
cost of the processing quarry by the sum of the lives 
of all the quarries using the intermediate processing 
Dla. 

The variable costs are the costs associated 
with mining and processing the aggregates, the cost of 
the aggregates themselves, and profits to the quarry 
owner. Quarry operators are, however, very reluctant 
to make known these costs, Since a breakdown of fixed 
and variable costs is necessary on the input data cards 
(see Appendix A, Section A.5), the model user must usually 
estimate them. As a check on the accuracy of the 
estimated costs, the sum of the fixed and variable cost 
should reflect the cost per ton changed by the quarry, 
F.0.B., thetquerny ersel fr. 

Transportation Cosi 1s the ScOntepe m= bOnmto 
move material (at a carload rate) over a fixed distance. 
This cost (which includes loading and unloading costs) 
is read in as data. Its format is discussed in 


Appendix Aj section Aya 
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4,43 The Processing Plant 


The largest portion of the initial investment 
for processed sand and gravel quarries and crushed stone 
quarries is the processing plant. The normal expected 
life of a new plant varies from 15 to 25 years under 
normal quarry output conditions. 

For existing quarries which have processing 
plants, the input data must supply the estimated remaining 
life (in years) of the existing plant (see Appendix A, 
Section A.2). When, as a result of elapsed simulated 
time, the remaining life becomes zero, the model simulates 
the purchase of a new plant by setting its life equal 
to that of a new plant. The life of a new plant is set 
by the user as one of the options (see Appendix A, 

Section A.2). Also, when a new plant is established at 
a new site, its life is set to the value of the life 


of a new plant. 
4.44 Allowance on Existing Processing Plants 


In all decisions involving the possible ter- 
mination of one processing type operation and the 
commencement of another, the cost of building a new 
processing plant is adjusted by an allowance on the old 
plant. In real terms, the allowance can be in the 
form of the ability to move the existing plants (or 


parts thereof) to the new location, or to sell the 
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existing plant. This allowance, which is a function of 
the age of the old plant, is tabulated below. It must 
be noted that when a quarry is physically depleted, the 
allowance is set to zero since it is assumed that an 
owner will not purchase a plant whose economic life will 
exceed the expected life of the quarry 


% Savings 
(based on the cost to establish 


“Age go newsman) mS 
> 15 years 70% 
10 - 14 years 60% 

5 - 9 years 40% 

< 5 years 30% 


PROCESSING PLANT ALLOWANCES 


TABLE 4.1 
4.45 Center of Demand Activity 


As previously discussed, it is assumed that in 
the case where an operator has only one active quarry, 
each operator will, when the choice exists, choose the 
location at which he can be most competitive. MIRSIM 
Simulates this choice by picking the quarry location 
which will supply the weighted geometric center (WGC) 
of demand activity within the planning horizon at the 
lowest total cost. The determination of the weighted 


geometric center of demand is as follows: 


where: 


1! 
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Row WGC for material i, 


Column WGC for material i, 


Tons material i required by the 
development forecasted j LDANEO. 2s 


Row Pease 


Column DEVFO., 
J 


2 
3 


: 


Processed S&G 
Unprocessed S&G 
Crushed stone, 


We Bh ey 


1,2,---,;n, = development forecasted, and 


0 if DEVFO. does not start within planning 
horizon 


1 if DEVFO. does start within planning 
horizon. 


As described above, the row and column of the 


weighted geometric center for material "i" is the first 


moment about row 0 and column O of all developments fore- 


casted scheduled to begin within the planning horizon. 


The planning horizon is that length of time in the future 


within which a quarry operator will look to determine 


the demand pattern facing his operation. Although this 
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period of time can be set to any value by the model user 
(see Appendix A, Section A.2), the simulation runs 
described in Chapter VI used a five year planning 
horizon. 

In the case where the operator has more than 
one active quarry, it is assumed that he is actively 
engaged in attaining business from more than one sector. 
His choice of a new quarry site will be that quarry 
nner Will supply the quarry zoned out (rather than the 
weighted geometricscenter) sat @ihenlowest=total cost. 
This prevents the possible esteblishment of two active 
quarries within the same general area, and thus spreads 


the scope of influence of the operator. 
4.46 The Processed Sand and Gravel Operation 


The self-preservation procedure for the pro- 
cessed sand and gravel operator is modeled in two major 
sections, the single quarry operation and the multi- 
quarry operation. Because the ability to quarry material 
at one quarry site (physically remove it from the ground) 
and as it to another quarry (intermediate point) for 
processing is unique to the processed sand and gravel 
industry, the decision alternatives the processed sand 
and gravel operator is faced with are greater in number 
than those of the unprocessed sand gravel operator or 


the crushed stone operator. 


y jel 


In the case of the single quarry whose 
operation is terminated by either zoning restriction or 
physical depletion, the owner who does not own potential 
quarry land is forced out of business. The decisions 
confronting the owner who wishes to self-preserve are 
a function of the cause of operation termination and 
are discussed below. 

If the quarry is depleted or zoned out (in 
either case removing material from the earth must cease) 
but processing can continue, the operator has two 
alternatives. He can (1) open an entirely new operation 
at that new site which is capable of supplying the 
weighted geometric center of processed sand and gravel 
at the lowest cost or (2) continue processing at the 
depleted quarry, shipping material from that new quarry 
whose total cost (cost to mine and process at new site + 
transportation cost to intermediate point + transportation 
cost from the intermediate point to the weighted geo- 
metric center of processed sand and gravel) is lowest. 
The decision between these two alternatives HS. to 
choose that alternative which will supply material to 
the weighted geometric center at the lowest total cost. 
It must be noted that even though the assumption has 
been made that a processing plant has no economic worth 
at a quarry which is depleted, the plant can (and in 


real life will) continue to operate. 


LZ 


For example, assume that quarry "X" is either 


depleted or zoned out (but processing can ‘continue) > 


and the owner of quarry "X" has three potential supply 


areas, 


below. 


Weighted geometric center 
(building a processing 
plant at the new site) 


To quarnpys "X" ator 
processing and then WGC 


NA", "B", &€ "C", whose cost alternatives. are shown 


Potential Quarry 


2:2. 273 ONL ES 250 0.0 oo 


SINGLE QUARRY OPERATION 
UeEDECUS LON cAMP ee 


TABLE 4.2 


The owner of quarry "X" would establish potential quarry 


"B", using quarry "X" as an intermediate point. 


In the case that the quarry is zoned out (i.e. 


removing material from the quarry must cease) and 


processing cannot continue, the operator has only one 


choice: 


_to open that new quarry (with a processing 


plant at the new site) which will supply the weighted 


geome trac center of processed sand ang epave ll eemanaecae 


the lowest total cost. The cost of the new processing 


plant is adjusted by the allowance on the existing 


processing plant before the fixed portion of the total 


cost is determined. For example, referring to the data 


in Table 4.2, quarry "X" cannot be used for processing; 


fie 
the owner would therefore establish potential quarry "A" 
as a quarry with a processing plant at it. 

In the multi-quarry sand and gravel operation, 
the alternatives are greater in number (see flow 
diagram, Appendix C, page 6). The zoned out or 
depleted processed sand and gravel quarry can be (1) a 
quarry with a processing plant which processes its own 
material but does not act as an intermediate point, 

(2) a quarry with a processing plant which is acting as 
an intermediate point, or (3) a quarry which is not 

a processing plant but which transports its sand and 
gravel to another point for precessing. These three 
cases are discussed below. 

In case 1] - the processing plant which 
processes only its own material - the decisions are 
Similar to the one plant operation with the exception 
that the focal point of demand is not the weighted 
geometric center but is the quarry which was zoned out 
or depleted. If the quarry is depleted or zoned out and 
processing can continue, the two alternatives the 


operator is faced with are to open an entirely new 


operation - which includes a processing plant at the 
new site - or to open a new quarry, using the zoned out 
or depleted quarry as an intermediate point. Whichever 


of these two alternatives will provide material at the 


lowest cost will be chosen. If, however, the zoning law 


does*not allow processing to continue, the ability to 
use the zoned out quarry as an intermediate point is 
eliminated. 


Competitive cost for the establishment of a 
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new quarry and processing plant is determined by adding 


the fixed costs, variable costs, and the transportation 


cost from the new site to the site of the zoned out 
or depleted quarry. The cost of the establishment of 


a new quarry using the zoned out or depleted quarry as 


an intermediate point is determined by adding the fixed 


costs ‘associated with the existing quarry, the variable 


costs at the new quarry, the transportation cost from 


the new quarry to the old quarry (which is a processing 


plant) and from the old quarry to the weighted 
egeometric center of “demand sactivily. shoal teria tye 
quarry locations exist, whichever one will prowde 
material at the lowest total cost is chosen. 

For example, quarry "X", which processes its 
own material but does not act as an intermediate point 
is either depleted or zoned out but processing can 
onteanee The owner of quarry "X" owns other active 
quarnteés: and*petential quarnies YA") 2B .uand 
"Cc", His decision alternatives and example costs are 


tabulated below. 


b) 


FS 
from Potential Quarry 


A B a 


Quarry "X" (building 


a processing plant 
atthe new .site) §2 «30 62 o5 $2.20 


To quarry "X" for 

processing and then 

to weighted geometric 

center © Peet ees 20 $2.25 


MULTI-QUARRY OPERATION 
_ DECISION EXAMPLE 


TABLE 4.3 


His solution would be to establish potential quarry "A" 
as a quarry without a processing plant and transport its 
material to quarry "X" for processing. 

If, however, processing could not continue at 
quarry "X", he would establish se fa quarry "B" as 
a quarry with a processing plant at the site. 

In case 2 - the zoned out or depleted quarry 
is being used as an intermediate point - the alternatives 
are quite different from those discussed above. If the 
quarry is depleted and processing can continue at the 
zoned out quarry, it is assumed that no action will be 
taken by the operator since the quarries' function of 
providing processing for other quarries has not been 
hindred. If, however, zoning prohibits processing from 
continuing, the operator is faced with the immediate 
problem of establishing a processing plant which will 


act as an intermediate point for the one or more quarries 
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using the zoned out processing plant. If only one quarry 
was using the zoned out quarry for processing, a processing 
plant will be opened at that site. Amortization cost 
at the new site will be determined by dividing the cost 
of the new processing plant (less allowances) by the 
remaining life of the quarry. 

If more than one quarry is using the zoned 
out quarry forvprocessing etnatsquarry closest: touthe 
weighted geometric center of processed sand and gravel 
will be established as an intermediate point. The 
rationale behind choosing as an intermediate point the 
one closest to the weighed geometric is that, in 
reality, it places the production facilities (and there- 
fore stockpiling capabilities) closest to the center of 
demand. Amortization cost at that site will be 
determined by dividing the establishment cost (less 
allowances on the existing plant) by the sum of the 
remaining lives of all the quarries using the intermediate 
point. 

For example, quarry "X'" is being used as an 
intermediate processing point for quarries A, B, C, 
and quarry "X" is zoned out. If processing is allowed 
to continue, no action will be taken. If processing is 
not allowed to continue, the owner of quarry "X" will 
establish a processing plant at whichever quarry (A, B, 
or C) is closest to the weighted geometric center of 


demand. 
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The third case is that the zoned out or depleted 
quarry is producing processed sand and gravel but 
shipping to another point for processing. Since the 
operator is faced with the situation of at least one 
processing plant at another site and a reduced amount of 
material to supply it, he will, if possible, establish 
a new quarry to supply the intermediate point. The 
choice of a new quarry is that quarry which will supply 
the existing processing plant at the lowest cost, or, 
in the situation where more than one quarry which is 
serving as an intermediate processing plant, that quarry 
which will supply the processing plant closest to the 
weighted geometric center at the lowest cost. 

For example, the owner of zoned out quarry "X", 
which is producing processed sand and gravel and shipping 
to another quarry for processing also owns potential 
Suanpriega Alig. Ble dands”’C!s¢andiquarriesn"Y"Feand)"Z", 
each of which is acting as intermediate processing points. 
The owner will establish as a new quarry whichever 
potential quarry (A, B, or C) is capable of supplying 
material at the lowest cost to the quarry which is 
closest to the weighted geometric center of demand 
Ghee t Eh eer wAd< 

In all cases, it is assumed that only as a 
last alternative will the processed sand and gravel 
operator go into an unprocessed operation. This will 


be. necessitated if all lands owned by him (or to which 
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he has access) contain only a low quality material. 
4.47 The Unprocessed Sand and Gravel Operation 


The unprocessed sand and gravel operation is 
characterized by a low quality, usually non-State 
approved, run of bank material. The actual quality 
classification which divides processed and unprocessed 
material is left as an option to the model user (see 
Appendix A, Section A.2). Initial production runs used 
as unprocessed material and sand whose quality was worse 
than C and any gravel whose quality was worse than D. 
(New York State Department of Public Works, Division of 
Construction 9£L960) )2 

If the unprocessed sand and gravel operator 
owns or has access to other potential quarries, it is 
assumed that he will seif-preserve his operation in the 
event of zoning restrictions or physical depletion. It 
is further assumed that only as a last alternative will 
the unprocessed sand and gravel operator switch to a 
processing type operation in an effort to self- 
Seca 

In the single quarry operation, the owner of 
a zoned out or depleted quarry will choose as his new 
quarry that one which will supply the weighted geometric 
center of unprocessed sand and gravel at the lowest 
total cost. In the multi-quarry operation, he will 


choose as a new guarry that one which will supply the 
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zoned out or depleted quarry at the lowest total cost. 
The rational behind these decisions is the same as those 
in the processed sand and gravel operation. Since no 
processing is involved, the alternative of using an 


intermediate point is not applicable. 
4.48 The Crushed Stone Operation 


The alternatives facing the crushed stone 
operator are the same as those facing the unprocessed 
sand and gravel operator. The crushed stone operator 
will seek to self-preserve his operation only if he 
owns or has access to other potential crushed stone 
quarries. Since intermediate processing in the crushed 
stone operation is not employed, the one quarry operator 
will choose that quarry which will supply the weighted 
geometric center of crushed stone at the lowest total 
cost, and the multi-quarry operator will choose the one 
which supply the zoned out or depleted quarry at the 
lowest total cost. 

It must be noted that the assumption has been 
made that the crushed stone operator will not investigate, 
as alternatives, sand and gravel supplies. The detailed 
flow diagram for the crushed stone self-preservation 


model is given in Appendix C, page 8. 
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4.50 Date Processing Section (MINEDP) 


Included in the data processing control section 
are four major functions: 1) The data preparation 
section which accumulates all output information, 
determines all costs, and physically prepares eee prints 
these records, 2) The quarry assignment model which 
assigns quarries to works-in-process, 3) The quarry 
selection model which establishes new quarries when 
demand exceeds potential output, and 4) The end of 
period adjustments which includes the section which 
reads intermediate data (see Appendix A, Section A.6). 


These sections are described below. 
frol? ‘The De taetrocessat gaaunct sen: 


This section converts developments forecasted 
which are scheduled to begin during the present period 
to works-in-process and investigates each work-in- 
process to determine whether a quarry is assigned to it. 
It then tests whether the assigned quarry can continue 
to: supply the work-in-process. If none are assigned or 


the assigned quarry can no longer supply the work-in-process ,** 


% : 
See Flow Chart, Appendix C, pages 9-10; and 
coding, Appendix D, statements 1510-18472. 


- The ability jot sa “quarry slo. supply anwar in— 
process is based on whether the assigned quarry has been 
zoned out or depleted and whether the expected demand from 
the work-in-process being established exceeds the maximum 
yearly output of the quarry. 
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control is passed to the quarry assignment model (see 
subroutine Sr ucls seotion 4.42), In both of the above 
cases, a new quarry is assigned to the work-in-process 
by the model. Also, quarry assignment can be forced 
yearly at the user's option as explained in Appendix A, 
Section A.27. 

Once it is determined which quarry will supply 
a certain work-in-process, the data processing function 
Simulates the movement of material from the quarry to 
the work-in-process by updating the amount of material 
required at the work-in-process and at the quarry site. 
All costs incurred are accumulated and all miscellaneous 
records are kept (see output format, Appendix A, Section 


A.7). Total costs is determined by 


puems =A ADAG, § 
ye Ase J 
where: 
rc, = total cost to supply work-in-process j 


J>t qguring time period t, 


A. Pan tons material required at work-in- 
J» process j during time period t,-and 
CC.’ = Gost per «ton ‘(using lowest cost 
J alternative) to supply work-in-process 
4% 


The determination of C is discussed in the following 


section. 
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4.52 Tne Quarry Assignment Model (SRFLCO)* 


Although the quarry assignment model (including 
the new quarry selection model) is written as a sub- 
routine, it is actually an integral portion of the data 
processing section and therefore, not included in the 
Subroutine control section. This model assigns quarries 
to works-in-process and establishes new quarries when 
demand exceeds present output capabilities. Assignment 
is based on which quarry can supply material of at 
least the required quality at the lowest cost per ton. 
All quarries which: 1) have not been zoned out or 
depleted, 2) produce the required type material (sand 
and gravel or crushed stone), 3) produce the required 
quality (or better) material, and 4) do not exceed 
Maximum yearly output as a result of the new assignment 
will be investigated and the one with the lowest total 
cost chosen-c ltimust be notedithat when fhe quarry — 
intermedidate point*work-in-process combination is 
being investigated, maximum yearly output of the inter- 
mediate processing plant is the deciding factor, not 
output at the quarry supplying the material since yearly 
output fis taefunection of s(mainly) plantrceapacuiy. 


“See Flow Diagram, Appendix C, pages 12-13; 
and Coding, Appendix D, statements 2508-2809. 
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Cost directly from quarry to work-in-process is 


determined by 


. sh Cette eo its TT : 
15J 4 a 13] 
where: 
C. . = Total cost/ton for quarry i to supply 
tJ work-in-process j, 
p 
ec. = Cost to mine and process one of ton 
‘s material at quarry i, 
ay, & Amortization cost/ton at quarry i, and 
T, . = Transportation cost/ton from quarry i 
+5J - to work-in-process }j. 


Cost using the quarry +> intermediate point ~> work-in- 
process is determined by 


6:2 e-sttiran toTtrendptfct. 
1,;P5J L Pp 1,p PsJ 


where: 
A - = Total cost/ton for quarry i to ship to 
»PoJ intermediate point p to work-in- 


process jj, 


¢c. = Cost to mine and process one ton of 
material at quarry i, 


@Q@he-~eAmortizationecost/tonsatiintermediate 
P DOW py 


an = Transportation cost/ton quarry 1 to 
Le intermediate point p, and 

T  . = Transportation cost/ton, intermediate 
P>J point p to work-in-process j. 


Given the above constraints, whichever quarry 
(or quarry combination) can supply material at the 


lowest cost/ton will be chosen. 
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4.53 New Quarry Selection Model - (Flow diagram, p. 13; 
Coding, Statements 2697-2800) 

In spite of the fact that individual operators 
will, in most cases, perpetuate their own Spee 
there remains a chance that demand during a given period 
will not be able to be satisfied by any quarries within 
or outside the grid system. When this is the case, a 
new quarry which will supply the given demand at the 
lowest total cost will be established, and a message 
stating that demand has dictated the establishment of a 
new quarry is printed. 

For programming ease and model efficiency, it 
is assumed that if the selected quarry requires processing 
that a processing plant will be constructed see Site. 
The possible alternative of using an intermediate 
processing plant in conjunction with the new quarry site 
Taunotyconsidered jad ns realityeeat Fe Hoey rarely the 
case that new quarries are opened because existing 
quarries are incapable of supplying the needed material. 
In fact, in the experimental runs which are discussed in 
Chapter VI, the case never arose. Furthermore, when 
total supply capabilities become so low (or demand 
becomes so great) that a new quarry is forced to open, 
it is not unreasonable to assume that the operator will 
establish a full scale operation which includes the 


construction of a processing plant at the site. 
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The cost per ton for a potential quarry to be 


established and supply a work-in-process is given 


below. 
Ge 
Cae eet wf, 
15) L. 2. 15) 
1 
where: 
C. . = Total cost/ton for potential quarry i 
>J to supply work-in-process jj, 
Es = Establishment cost of potential quarry 
1; 
Ls = Expected life of potential quarry i, 
V. = Cost to mine and process/ton potential 
is quarry 1 once established, and 
t. . = Cost/ton to transport material from 
5] potential quarry i to work-in-process 
is 
The lowest C. . 1s chosen and that potential quarry 


3 


established as a quarry. 
4,54 End of Period Adjustments 


At the end of each period, the lives of 
existing processing plants are updated and new plants 
purchased when existing plants reach their maximum age. 
Lives of the new plants are set by the model user 
(see Appendix A, Section A.2). 

As discussed in Appendix A, Section A.6, this 
section also reads and converts to proper format inter- 
mediate data cards at the appropriate years. The flow 


diagram for the end of period adjustments is given in 
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Appendix C, page 11, and the coding in Appendix D, 


statements 2261-2441. 


4.60 Subroutines (MINESUBR) 


For programming ease, all subroutines (with 
the exception of SRFLCQ and SRPQCOST) are included within 
the control section MINESUBR. SRFLCQ has been discussed 
in Section #.42 and SRPQCOST is discussed below. Due 
to the mechanical nature of the other subroutines (from 
a computer programming standpoint), they are discussed 


in Appendix B. 
4.61 Subroutine Find Lowest Cost Potential Quarry (SRPQCOST) 


When a quarry operator is forced to establish 
a new quarry, he must search all potential quarries owned 
by him, or to which he has access, and establish that 
one which will supply a given point (determined by the 
calling program) at the lowest total cost. 

Depending on which alternatives are available 
to the quarry owner (as determined by the calling program), 
SRPQCOST will: (1) Search all potential quarries which 
are capable of supplying processed sand and gravel and 
chose the lowest cost alternative with and/or without 
an intermediate processing point, (2) search all 
potential quarries which will supply unprocessed material 
and chose whichever can supply material at the lowest 


cost, or (3) search all crushed stone potential quarries 
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and choose the one which will supply crushed stone at the 
lowest cost. 

The elo diagram for SRPQCOST is pictured in 
Appendix C, pages 14-15, and the coding in Appendix D, 


statements 2508-2809, 
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CHAPTER V 


MODEL INPUT 


This chapter describes the procedures used in 
gathering the input data required by MIRSIM. It also 
describes the problems encountered and suggests how 
future studies using MIRSIM can be more efficiently 


conducted. 


ped bt Supply Data 


Data concerning quarries and potential reserves 
was originally believed to be readily available and thus 
provide the fewest data collection problems. As the 
research progressed, it became apparent that this 
assumption was fallacious. The data organized by the 
Bureau of Mines, although very helpful, did not provide 
the quarry information in as much detail as required by 
the model. Furthermore, a few large operators and most 
of the small unprocessed sand and gravel operators do not 
report their operating figures to the Bureau; hence the 
data was not complete. We therefore suggest a more 
efficient procedure for future studies as well as describe 
the actual procedure followed during the pilot study of 


the Tri-City area. 
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Every known quarry supplier within the study 
area was asked to provide information regarding his 
quarry site (or sites). The information required from 
quarry operators includes: 

1) Quarry location, 

2) Quarry type (sand and gravel or stone), 

3) Percentage sand (if sand and gravel), 

4) Quality material(s), 

5) Quarry life, 

6) Yearly output capabilities, 


7) Cost breakdown by fixed and variable costs 
(see Chapter 4, Section 4.42), 


8) Life processing plant (if applicable), and 

9) Other lands owned. 

The details of the exact information required are discussed 
in Appendix A, Section A.5. 

In cases where operators would not reveal the 
required information, estimates were made based on 
figures reported by the Bureau of Mines or by geologists 
familiar with the area. 

If a quarry is known to supply material to the 
study area but is not contained within the boundaries 
of the grid system, information concerning these "outside 
quarries" includes: 

1) Type quarry, 

2) Quality material, and 


3) Cost to the grid system. 


Si 


This information is described in detail in Appendix A, 
Section A.4. 

Although there may be a considerable difference 
between a quality "a" and "c" sand, we have made no 
distinction between the two.* Qualities "a", "b", and 
"o" have been lumped as processed material and below 


ttt 
Cc 


as unprocessed. The same assumptions are held for 
stone. (Although there is no "unprocessed stone," the 
qualities "a", "b", and "c", have been lumped as one.) 

The model is capable, however, of making finer distinctions 
in the quality than the input indicates. The reason for 
the broad generalizations is that the data on quality of 
potential aggregate is impossible to gather unless actual 
test cores are drilled and analyzed. This was beyond 

the scope of our project. 

There were several assumptions that had to be 
made with the help of individual operators to complete 
the input parts of the model. We have assumed a 50:50 
ratio of sand and gravel for processed sand and gravel 
and whereas a 70:30 ratio for unprocessed material. 
Average F.0.B. prices were established and used as 


f, 


“Quality classifications refer to New York State 
Specifications as outlined in the Public Works 
Specifications (1962). Classifications are determined 
primarily by subjecting material on abrasion tests, a 
magneseum sulfate soundness test, and to a freezing and 
thawing test. For example see New York State 
specifications, page 92. 
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guidelines: $1.75/ton for processed sand and gravel, 
$1.00/ton for unprocessed, $2.00/ton for crushed stone. 

The determination of potential quarry sites 
was based upon glacial and soil maps. In order to 
determine the location of economic sand and gravel deposits, 
a study of glacial and soil maps was undertaken. Glacial 
maps were available for the study area east of the Hudson 
River. Albany and Schenectady counties were evaluated 
by soil maps. Since no soil or glacial maps were available 
for southern Saratoga county (which constitutes the 
northern section of the study area), evaluations were 
made by extending soil patterns from the other three 
counties included in the study area, Albany, Schenectady, 
and Rensselaer. The Tri-Cities area was an area of 
active glaciation; hence only glacial deposits, or 
glacially associated deposits, were considered as 
potential sand and gravel sites. The main glacial 
features which were considered to be potential sand and 
gravel deposits were kames, kame deltas, kame terraces, 
eskers, outwash and river channels. 

The areas of the three major counties in the 
study area are Albany, 527 sq. miles; Schenectady, 206 sq. 
miles; and Rensselaer, 651 sq. miles. The analyses of 
the maps indicates that about one-third of each of 
these counties is covered with sand and gravel. In Albany 


County the deposits are concentrated in the city itself 


a2 


and are therefore unusable under existing conditions. 

The eastern part of Schenectady County has deposits which 
lie in a belt extending westward along the Mohawk River. 
The deposits in Rensselaer, which are by far the best 
quality, stretch in a north south direction through the 
western-central part of the county. The wind deposited 
Colonie "blow sand" covers much of Albany, Schenectady and 
Saratoga Counties. This sand is very fine and is 
unacceptable by New York State standards. It may, however, 
have limited use as fill material. 

Of the potential areas of sand and gravel, a 
conservative estimate of 30% - 40% was considered 
usuable. In order to simplify calculation, the depth 
of this material was arbitrarily determined to be 27 
feet, a figure considered reasonable by persons having a 
geologic knowledge of the Tri-City area. 

If it is assumed that all the areas were 
available for sand and gravel operation in the amounts 
specified, there would be approximately five billion 
cubic yards available for use. If one assumes an 
extremely high yearly consumption of five million yards, 
there would be approximately 1,000 years of reserve. 

The potential quarry sites for stone are easier 
to determine and are even more vast. There are basically 


three areas from which stone may be produced: the Rensselaer 


Graywacke which covers about 80 square miles approximately 
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ten miles east of the city of Troy, the Tribes Hill 
Dolomite which runs along the Mohawk River east almost to 
Schenectady where it is faulted and lost, and the 
Helderberg Escarpment limestones which swings an arc 

from Amsterdam at the west of the study area to Ravena 

on the south. 

As already stated the Rensselaer Graywacke 
covers about 80 square miles. An overall thickness of 
20 yards was used to estimate the vclume of stone 
available. Although the Graywacke is much thicker in 
places, there are shale beds that make the area unusuable 
for stone. Using the 20 yards figure as the overall depth 
compensates for the unusable stone. Even with this 
estimate there are 48 billion cubic yards or about 100 
billion tons of stone available. 

Although the Tribes Hill Dolomite extends 
beyond the western limits of the study region, only that 
which is directly available to the Tri-City region has 
been accounted for in the determination of stone reserves. 
This formation has been considered to be a cliff 
stretching 10,000 yards, 30 yards in height and 300 
yards into the face, representing 90 million cubic yards 
or about 200 million tons. 

The limestone of the Helderberg Escarpment 
stretch beyond the southern and western limits of the 
study area; again, only the areas affecting the tri- 


cities were considered. The escarpment was also treated 
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as a cliff stretching 60,000 yards, with a height of 30 
yards and a depth into the face of 300 yards. This 


produces 540 million cubic yards (1.2 billion tons) of 


stone. 

The estimates of stone reserves are very 
conservative. For example, no estimate of stone 
reserves for underground production has been made. Even 


with this conservatism, the volume of stone should last 
for thousands of years at extremely high production 
levels. 

In order to better ascertain the exact location 
of potential supply areas, an aerial survey was conducted 
by a team of geologists. This survey reaffirmed the 
authenticity of the previously established potential 
areas, and revealed a number of heretofor unknown quarry 
Sites. The large majority of these quarries were 
unprocessed sand and gravel borrow pits; their reserves, 
and yearly capacity were estimated by the aerial survey 
team. 

The information the model requires about 
potential quarries includes: 

1) Potential quarry location, 

2) Type (sand and gravel, or stone), 

3) Percentage sand (if sand and gravel), 

4) Quality material(s), 

SDs seliebe 


6) Yearly output capabilities, 
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7) Cost breakdown by fixed and variable costs, 

8) Estimated establishment cost, and 

9) Owner and other lands owned. 

The details of the exact information required 
is found in Appendix A, Section A.5. 

In future studies, the suggested course of 
action would be first to determine the geographic boundaries 
of the area and then conduct an aerial survey (or to use 
up to date aerial maps*) in order to locate all active 
quarries and potential supply areas. Each active operator 
should then be visited and asked a highly structured set 
of questions regarding specified characteristics of his 
operation. The questionnaire should be set up to 
facilitate transferring the data to punched cards, a 
task which also proved to be formidable. 

Within the study limits are over fifty active 
quarries, including four crushed stone operations and 
ten processed sand and gravel operations. The location 
of these quarries is shown in Figure 5.1. Also 
included in the study region is one outside supplier of 
crushed stone located approximately 10 miles north of 


the grid system. 


“Services such as Cornell University's Air 
Photo Interpretation Center, will photograph and 
interpret the desired region. 
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5.20 Transportation Costs 


An average transportation cost which will be 
used in the model for all material movement must be 
determined. The transportation cost curve in the Tri- 
City study region was generally agreed to be $.25 per 
ton for the first mile and $.05 per ton for each 
additional mile. This cost schedule was decided on by 
discussions with quarry operators, contractors, and New 
York State Department of Transportation* personnel. It 
must be noted that experimental simulation runs (des- 
ecribed in Chapter VI) were set up to investigate the 
effects of changing the transportation cost curve. It 
may be advisable in other larger urban areas to establish 
a series of concentric time-distance lines instead of 
a straight per ton-mile rate. This particular area, 


however, did not warrant such an elaboration. 
5.30 Demand Data 


In the model, the demands for mineral resources 
are created by developments forecasted which are scheduled 
to begin at a time other than during the first simulated 
time period, or by projects (works-in-process) which 
are already in progress at the time of the first 


Simulated period. The data required to identify the 


“Formerly New York State Department of Public 
Works. 
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characteristics of developments forecasted and works-in- 
process include: 
1) Demand location (grid row and column), 


2) Fill material available from the demand 
site, 


3) Material required (tons), 
4) Quality material required, 


§) ~ Percentage sand required (it processed 
sand and gravel), 


6) Starting date (if deveiopment forecasted), 
7) Years it will take to complete project, and 


8) Quarry supplier (if it is known which quarry 
is ‘supplying, ox will supply. a2 project): 


The detailed description of the format of the 
demand data required is presented in Appendix A, 


Section A. 5: 


5.40 A Molecular Method for Determining Future Mineral 
Aggregate Consumption 


One of the prime input requirements for MIRSIM 
is the amount of sand, gravel and crushed stone that 
will be needed at any given time in an area. The dictates 
on this information are quite stringent since the 
requirements for mineral aggregates must be known in 
terms of a grid coordinate system. 

The input to the model must include the governing 
relationships between sand and gravel consumption and 


the construction and development plans for the geographic 
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region (in the test case, based on the one mile grids). 
Therefore, data is required on not only how much land 

will be devoted to a certain use in any given year (for 
example, residential use), but also the nature of the 
construction that will take place, (i.e., one family units 
or apartments, wood frame or unit construction). 

This information can be obtained from hand 
use projections developed by state or local planning 
agencies. These projections are usually available in 
terms of small geographic units, such as one mile square 
grids, or urban trip-density zones and forecast the 
amount and location of land devoted to specified uses, 
such as residential, commercial or industrial. This 
information must then be translated into the nature of 
the construction for the projected land use by consulting 
the sources that govern construction; building codes and 
zoning laws. 

Building codes, for example, may force the design 
of a building by constraining its size (area covered) and 
the number of stories. In addition, whether or not the 
iecemoecewithinerhes tire Jiamits" of. the city will further 
dictate the architect's use of steel or concrete frame 
construction. 

In residential construction, zoning laws will 
usually predetermine whether residences will be one 


family, two family, or apartment units. A classification 
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by size of unit is sufficient for computing demands on 
common mineral resources. 

Estimates of actual sand and gravel requirements 
were obtained from the National Portland Cement 
Association. Based on a nationwide survey, the Association 
has determined that the average house size is 1200 square 
feet, and that 65 barrels of cement are needed to 
complete its construction. There are similar averages 
for non-residential buildings which give the cement 
requirements for various types of construction on a per 
square foot basis. 

Since this report deals with the Tri-City area 
(an area in which soil conditions. climate and many 
other factors are well established), sand and gravel 
construction requirements which are more sophisticated 
than the preliminary data supplied by the Portland Cement 
Association were made. For example, a much more 
realistic residential house size based on the size of 
the lot and where it is located was derived. In addition, 
a knowledge of soil conditions will be influential in 
determining fill requirements and the configurations 
of the housing foundations. As a further refinement, 
the construction forms in popular use in the Tri-Cities 
area are known. For example, the houses that are 
erected usually have a concrete foundation with wood 


frame. Commercial buildings, on the other hand, are 
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generally of the slab on grade type, with either steel or 
concrete frame depending on the location of the site. 

The extent to which precast concrete members are used 
(these might well be shipped from factories outside the 
study are) needs further investigation. 

Road construction is perhaps the most important 
factor in the determination of sand and gravel construction. 
It is fortunate, therefore, that our best estimates and 
projections for sand and gravel requirements are in the 
area of road construction. Projections for new roads are 
made by the state or county far in advance of actual 
construction. For example, definite commitments have 
been made by New York State for roads to be built through 
1980. In addition, state and county specification pre- 
determine the exact construction of the road, and hence, 
the amounts of mineral aggregates. The procedure for 
converting this information to model input is: (1) 
identify the grids in which projected roads will lie, 
and (2) estimate aggregate requirements on the basis of 
the road specifications. 

The remaining sections of this chapter describe 
the data of the mineral aggregate requirement projection 


procedure. 
5.41 Forecasting the Number of Residential Units 


The basic equation for determining material 


requirements created by residential housing is as follows: 


Be2 


(total SEG required)=(no. of housing units)x 
(quantity/ unite 

It must be noted that in the residential sector the 
important factor is the housing unit, whereas in the non- 
residential section, square feet of floor area is the 
dominant factor. Since the size of housing units and 
amount of material used does not vary greatly, a house 
size of 1200 square feet was used for the runs presented 
in this report. However, should such a sensitivity be 
necessary for other studies, Table 5.1 correlates lot 


Size with house size and concrete requirements. 


LOT SIZE HOUSE SIZE CONCRETE 

up to 8000 ft. 1000 sq. ft.” 59 cu. yd. 
8000 to 12,000 ft. 1200 sq. ft. 68 cu. yd. 
245000" up ESOO Sa . renee 80 Taye. 


CONCRETE REQUIREMENTS VS. LOT AND HOUSE SIZE 


TABLES #2 


In our study area, structures larger than two 
family types occur infrequently and just in central city 
areas. This fact is substantiated by the Business Fact 
Book for the Capital District (New York State Department 


of Commerce, [1963]) as shown below. 
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Q 


6 HOUSING UNITS IN 


x 


County 1 family 2 family 3-9 family 10+ family 
Albany 494% 25% 20% 4% 
Rensselaer 95 27 14 2 
Saratoga 81 da 6 uh 
Schenectady 60 24 da) 5 


HOUSING SIZES IN THE STUDY AREA 


TABLES 55.2 


Discussions with construction firms and 
planners, also led to the following observations: (1) 
the current rate of large apartment house construction is 
small when compared to the overall construction volume ,* 
and (2) over the period of this study large apartment 
units will play a minute role.** 

Table 5.2 shows that a sizeable percentage of 
housing units are in 3-9 family structures. Zoning 
indicates that where multi-family dwellings will be 


erected, they will be in the range of 4-8 family, 2 story 


“The only large apartment house under construction 
presently is in the city of Cohoes, N.Y. Even a relatively 
large project, like the Kennedy Tower in Troy, N.Y. (265 
units) represents only about 9,000 yds., 6 fine aggregates, 
and 13,000 yds. of course aggregate. 

*"In other areas, such as New York City where 
high-rise apartments are of significant number, the 
volume of concrete per unit will have to be re-evaluated. 
Nevertheless, homes in the Metropolitan area are 
generally of masonry (as opposed to wood) and the 
quantity of concrete per unit will also be a constant 
that is independent of the type of unit. 


104 


units of the "garden apartment" variety. Of the garden 
apartment currently being built, the majority are wood 
frame structures in which the concrete per unit is 
approximately the same as for private (1 and 2 family) 
dwellings. 

Returning now to the original equation: 

(totaleseGl=tricceOte NOUS tiene eeeeud Nall CL. yi tae 
it can be seen that the first step is forecasting the 
number of units. Originally this was done on the basis 
of zoning (i.e., total land area devoted to residential 
use/minimum lot size per house = number of dwellings) 
as follows: zoning maps were obtained from all towns 
that were zoned and the maps were reproduced to the 
proper scale and mounted on the base map. The grid 
overlay then showed the types of zoning that could be 
associated with each grid. In the case of areas that 
were not zoned, estimates were made based on field 
observation, and zoning in adjacent areas. In the case 
of two or more residential zoning types an estimate 
was made of the portion of the area that each type 
represented and an average was determined. 

This method worked well in most cases. The 
few exceptions are in agricultural zones, where an 
ordinance defines the minimum acreage for farm use, but 
not the minimum lot for residences, and in residence 
zones were both single and two or three family dwellings 


are permitted but on different lot sizes. 
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For the entire study area during the period 
1965-1970, 12,389 residential units were projected for 
a population increase of 36,470. The per unit population 
for this period, therefore, is 2.94 persons per unit, a 
difference of 9% from the 1960 figure of 3.26 person 
per unit as reported in the Business Fact Book (New York 
State Department of Commerce, [1963]). For the period 
1975-80, the total housing forecast is 3.08 persons per 
unit, a deviation of 5.6% from the 1960 figure. 

For future application of the molecular fore- 
casting method, two methods are open for determination 
of number of units. Depending upon availability of 
data, either the zoning method: 


(no. units)=(projected residential land)x 
(minimum lot size), 


or the method of population: 


(no. units)=(population)x(pop./unit), 


may be used. For initial evaluations the four county 
average population unit has been used. These figures 
are, however, available by individual towns and cities, 
and will be input into the program on the basis of 


individual zones. 
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5.42 Concrete Requirements for Residential Construction* 


This analysis was performed for three different 
house-sizes, 1000 square feet, 1200 feet and 1500 Square 
feet. In each case, the house considered had a poured 
basement with 4" concrete floor, a 10 x 10 ft. patio, 

3" thick, wood frame and suitable siding. 
A sample calculation for a 30 x 40 ft. house 


TSeaS TOMLows: 


3 
at yd 3 

basement floor 1200 Eto G £tx, 9 +3 SLs) Vas 

ik a> 
foundation wall 1ftxl40 ftxl0 ft x aay ei 6 

2 18 ee 
patio (approximately) ah 

68 Halen 


Similar analysis for 1000 sq. ft. house yielded a total 


fone one yards’; formsub 00a house. es U yards.° 


5.43 Forecasting the Floor Area of Non-Residential Construction 


The basic equation for determining floor area 
of non-residential construction is as follows: 


(Total floor area)=(total land)x(maximum 
coverage of land permitted by local zoning). 


“See Section 9-41, Calculating Concrete for Non- 


Residential Construction for a justification of the 
analytical way in which these concrete estimates are made. 
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It is felt that using the maximum allowable 
coverage is realistic since a man who owns land that has 
a non-residential zoning will try to use as much of it as 
he can for income producing purposes. If he is not in 
a position to develop all of his land to allowable 
capacity, it is assumed that he will sell or lease 
portions of it for other people to develop. There is 
no question in our study area of the demand for land and 
development since the New York State projections are 
made from a model which takes these factors into 
account. 

Superimposing the grid overlay on the zoning 
maps, the type of coverage permitted in each grid was 
determined. When more than one non-residential type 
appeared the allowable coverage was averaged. Coverage 
in the study area ranged from as low as 25% of the lot 
in rural towns to 90% in cities. It must be noted here 
that no differentiation was made between the various 
types of non-residential zoning such as light, commercial, 
industrial, heavy industrial, ete. and that only the 
allowable coverage was recorded.* 

The product of the allowable coverage and the 
total land is the floor area. The following section 


describes how the quantities of aggregate are determined. 


“If sensitivities should indicate a need for 
further refinement in the future, the varying types of 
non-residential zoning might be an indication of the type 
of building that will be erected and hence more than one 
"typical" structure might be analyzed for concrete usage. 
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5.44 Conerete Requirements for Non-Residential Construction 


Once the floor area of non-residential 
construction has been forecasted for each grid and time 
period, the next step in determination of aggregate 
quantities is the calculation of the cubic yards of 
concrete that will be required by the construction. A 
number of approaches were possible. The first, was a 
survey of local construction firms. The purpose of this 
survey was to find out the actual quantities of aggregate 
metkyeiA that the firms had used on previous jobs. 


Presented below is a partial list of the 


findings: 
Cubic Yards Concrete 
Lobel uRS Area of Building 

Junior High School U25 
State Police Academy ~063 
Boys School .024 
SGhoo . 2028 
Industrial Plant ess 
Warehouse and Office Building .029 
Commercial Building .0296 
Commercial Building 025 
Labor Temple 200 


EXAMPLE“ CONCKETE (REQUIREMENTS ONSSDELECTE Das DRUCTORE.S 


TABLE 5.3 


The overall average for all jobs surveyed (23) was .04 
cu.,.yds,. of conenete per sq. ft. of Bloorsaread. 

After meetings with the Portland Cement 
Association personnel, it was decided to estimate the 


conerete needs on the basis of an analysis of building 


LO2 


plans of "typical" structures. A typical building is a 
one floor structure with a concrete floor anda 3 ft. 
deep concrete foundation wall. It is assumed that the 
frame will be steel, with a construction bay size of 25 
x 25 ft. There also is a metal or lightweight roof, and 
a masonry (brick) facade. 
The most convenient way of analyzing this 

structure is on the basis of the construction bay. 
pacify eo te Day “COMnSTsts “OT: 

Soo see ert. Lo “eorncrete Floor 13 cu.,yd. concrete 


one column footing (4 quarter 
columns at each corner) + cap Ree? CAL cuts (1 


pro-rating of foundation wall 

and footing to the individual 

bay cial wash a a 

17 cu. yd. concrete/bay 
Therefore, concrete required for building = 

ice area at (sc. f£..)/7(525 St. tt./Day). x 

eeu. SCUONC Day )= bs CUNVde/ O25 Ste Lhe hI 27', 
Checking this analysis against the findings from actual 
construction projects it can be noted that our analysis 
is accurate for most buildings. The few notable exceptions 
(the ones which drew the average up to .04 yds/sq. ft.) 
are massive public buildings such as the Police Academy, 


certain schools, and large, high rise office buildings. 


These do not represent a large portion of construction 
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volume in the entire study area over the 20 year 
period.* 

Initial structural analysis was made using 
a 25 ft. square bay, a size that is quite popular today. 
However, there seems to be a trend for increasingly 
larger bay sizes; it seems, therefore, that an 
analysis using 30 ft. bays (20 yds. concrete per bay) 
may be more suitable for forecasting purposes. 

Notably absent from our analysis has been the 
superstructure of the building. The reason for this is 
that materials in the superstructure can be identified 
in a different manner. As previously noted, the super- 
structure of the building may be steel, in which case 
LieLe-or no interest to us.° If the Bupidiyneere awa 
bearing type with masonry (concrete block) units, then 
these units are identified as a finished product at 
the manufacturer's plant. In other words, we determine 
the amount of sand and gravel or lightweight material 
the manufacturer uses to make his block, (i.e., the 
block manufacturer is the consumer of the aggregate 
mineral). 

Of increasing popularity in digi area will be 


the tilt-up method of casting a wall on the ground and 


“The method presented in this paper can be 
applied in other areas, although "typical structures" 
and concrete usages will have to be re-evaluated. 


3 te We | 


then "tilting it up" to place. In such a case there is 
no foundation wall since the tilt up is set right on the 
foundation piers. 

In total, the exceptions to our "typical" 
structure represent a maximum deviation of approximately 
20% in the amount of concrete needed on a per square 
foot basis. Since these exceptions are not frequent, 
and since the deviation is only about 20% it was decided 
to treat all non-residential buildings as "typical". 

5.45 Determining the Quantities of Sand and Gravel for 
Residential and Non-Residential Construction 

The final step is to convert concrete quantities 
to mineral aggregate quantities. For this conversion, 
it has been decided to use a six bag mix having a water- 
cement ratio of six to one. This mixture is widely 
used in severe climates (such as the study area) for 
most ordinary construction work. For the mixture chosen, 
each cubic yard of concrete contains 1170 lbs. of fine 


aggregate, (sand) and 1760 lbs. coarse aggregate (gravel). 
5.46 Determination of Aggregate Quantities for Roads 


Road construction creates the largest requirements 
for mineral aggregates in the Tri-Cities area. This 
statement is readily seen by the fact that a mile of 
four-lane urban arterial displaces between 75-100,000 


tons of aggregates. 


ele 


Forecasts of road work were obtained from the 
New York State District I Transportation office.* This 
office is reponsible for the construction of all roads in 
the Capital District. The forecasts obtained were not 
merely projections, but actual plans for highway 
construction through the year 1979 along with estimated 
paving costs and projects lengths in miles. The projects 
were plotted on a transparent overlay of our area map 
in order to determine the grid(s) associated with each 
project. By an analysis of a typical cross-section of a 
road, the tonnage of the various aggregate material was 
then calculated. The calculations yielded tonnage for: 
(1) unwashed gravel (fill material), (2) washed gravel 
(foundation course), (3) stone (used in either the 
asphaltic or cement concrets), and (4) sand (in the case 
of concrete cement roads) for each grid during each one 


of the forecast periods. 


“New York State "Action Program" for road 
construction. 
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CHAPTER VI 


RESULTS AND CONCLUSIONS 


6.10 Validating Procedures 


As previously discussed, an assessment of the 
validity of a simulation model must be made before its 
output can be used to aid the decision making process. 
Validation of MIRSIM has been carried out at three 
segments of the mineral aggregate study: the validation 
of the input data, of the model itself, and of the 


generated output. 
6.11 Input Data VWlidation 


Data concerning residential and non-residential 
construction were obtained from the New York State 
Capital District Transportation Study in the form of 
computer generated punched cards. These data, together 
with road construction forecasts have been discussed with 
planners, Department of Transportation personnel, and 
others, and compared with production figures of mineral 
aggregates in the study area. Because of the confidential 
nature of individual quarry production figures, the 
results of the validity tests can only be discussed in 


broad terms. 
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Processed sand and gravel requirements through 
the year 1981 compared very well (on an average yearly 
basis) with average production figures for the years 
1965-1968. U. S. Bureau of Mines figures showed total 
production in the study region to be approximately 1.1 
miliions tensjin 19655 andi l.2emiil laonetons: oe pocoeesGoG 
and 1967. Simulated usage forecasted for the»years 
1968-1969 averaged 1.25 million tons, with an overall 
average of 1.3 million tons over the entire 13 year time 
period. 

Historical data on unprocessed production is 
extremely difficult to obtain. Furthermore, although the 
total material requirements may very well be accurate, 
the actual amount that must come from quarries (as 
opposed to that fill material which is obtained from 
the construction site itself) must also be estimated: 
Average yearly production predicted by the model was 
600,000 tons. Of this, the model allocated 200,000 tons 
to the very large suppliers, and the remaining 400,000 
tons to the many small producers scattered throughout the 
study eee This small producer average of approximately 
11,000 tons per year compares very well with an estimate 
of between 5,000 tons and 50,000 tons produced by the 
unprocessed supplier, the estimated modal value being 


between 10,000 and 15,000 tons.* 


Je 
Personal correspondence with Mr. William 
Cutcliffe, J. R. Dunn and Associates, Averill Park, New York. 
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The first four years of the simulated time 
period resulted in an average yearly production of 1.2 
million tons of crushed stone. Actual production 
figures showed that approximately 1.4 million tons were 
produced in 1967. The 200,000 ton discrepaney is 
accounted for in that not all stone produced was shipped 
into the study region, and miscellaneous small road 
projects have not been considered. 

It must be noted that actual total production 
in the Tri-City area in 1967 was approximately 1.6 
Million tons. This added 200,000 tons, which is used 
for residential and non-residential structures, for 
sewers, and for canal and railroad bed maintenance has 
not been considered in the experimental runs which 
follow. Discussions with the president of a major 
producer of crushed stone in the study area reinforced 
the original belief that sone produced for these uses 
amounts to an insignificant percentage (less than 5%) 
of total production. Hence, it has been decided that the 
cost of forecasting these demands does not -justify the 
marginal added realism gained by their inclusion. 

Production figures over the entire simulated 
period average only 600,000 tons per year. The decrease 
after the first four years can be accounted for by the 
fact that many of the large New York State road 


construction projects presently underway are scheduled 
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for completion within these years and no new major jobs 
are forecasted. 

Data describing the characteristics of the 
individual quarry operations were obtained from the 
operators themselves and by estimating procedures 
determined by the geologists involved with this research. 
Follow-up discussions with a number of major operators, 
with the Executive Secretary of the Empire State Sand, 
Gravel and Ready Mix Association, and with U. S. Bureau 
of Mines personnel resulted in the opinion that the 
projections made by the model were "not at all unexpected". 

It was assumed that the cost of processed sand 
and gravel at the quarry site varied between $1.70 and 
$1. 90tper ston. * “It must be noted that in-actualiry, 
this cost has risen to slightly more than $2.00 per ton. 
Therefore, the simulated dollars spent for processed 
material is slightly less than can be expected under 
the updated -cost-structure. 

Because of the large number of small unprocessed 
sand and gravel producers, it was decided that it was 
not economically justified to visit with them. The 


estimation of the type, quality, and quantity of material 


er 


they produce has been further complicated by the fact 
that most of them do not report their figures to the 
Bureau of Mines or to the Sand and Gravel Association. 

In order to describe their operations to the model, the 
Size of the operations (with respect to output 
Capabilities as well as reserves) was estimated from tie 
previously discussed aerial survey. For simplification 
purposes, it has been assumed that each operator produces 
a run of bank material at $1.00 per ton at the quarry 


Site. 
6.312 Model Validation 


The decision processes included within the 
model itself were developed from the results of 
discussions with U. S. Bureau of Mines personnel, 
geologists familiar with mineral aggregate production 
in the Tri-City area, and by the producers themselves. 
These discussions continued throughout the entire 
modeling procedure for the purpose of analyzing in detail 
the many facets of the model itself. 

Debugging of the actual computer program (to 
insure that it was functioning correctly from a 
programming viewpoint) also continued throughout the 
entire programming stage. Numerous sets of test data 
(which could be hand checked by desk calculator) were 


conducted on individual sections of the model. When 
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these individual sections were functioning properly 
(within the limits of the test data), the model was run 
with actual data. The first set of runs using actual 
data: was. used.strictly fon, final programming checks. 
Only after the final set of debugging runs (at which 
point it was felt that the model was behaving properly) 
were the actual runs started. The results of these runs 
are discussed in Section 6.20. Two major assumptions 
were made during the development of the model: those 
involving the determination of a weighed geometric 
center of demand as a focal point for new quarry establigh- 
ment, and the assumption that quarries would be assigned 
to works-in-process on a low cost basis. 

During the initial interviewing process, quarry 
operators were asked where they would open new sites 
if their present ones were zoned out. The consensus was 
that each operator would make a judgment (based on 
previous knowledge, announcements of future developments, 
etc.) on the location of the center of the demand 
pattern and try to locate his new quarry in as competitive 
a position to that location as possible. Through the use 
of a weighted geometric center (as described in Chapter 
IV, Section 4.45), the model has quantified the 
estimating procedure described by the operators. The 
weighted geometric centers, as determined by the 


simulation runs, are located approximately one mile due 
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mortn of the City.of Albany... This} centériisowéll within 


the centers estimated by the quarry operators. 

The assumption of assigning whichever quarry 
could supply material at the lowest total (delivered) 
cost also proved to be very reasonable. As previously 
discussed, for large construction projects, jobs are bid 
upon and the low cost bid accepted. In smaller jobs, 
other factors such as family ties and so forth may tend 
to distort the assumption of low cost. These amount 
to “sucha small portien;+of the,total usage that at) is 
felt that, in general, the low cost assumption is, in 


fact, valid. 
6.13 Output Validation 


The first attempts to validate model output were 
accomplished by running the model with test data 
specifically designed to cause certain reactions by the 
model. Using very simple cases, the results of simule- 
tion runs were checked by hand. Only after all test 
cases were running satisfactorily was the model run with 
the actual Tri-City data. 

ir Vt is assumed that the input;data. (both 
supply and demand) is reasonable, the generated output 
Pan be. validated as.a function. of that input data. 
Balderston and Hoggart (Amstutz [1967], D. 380) suggest 
that "...our first concern is scheduling runs of the model 


was to establish its viability: that is, its ability, 
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under plausible initial conditions and parameter settings, 
to generate behavior over time...". 

Cost at quarries are approximately $1.00 per 
ton for unprocessed sand and gravel, $1.70 for processed 
sand and gravel, and $2.00 per ton for crushed stone. 
With a transportation cost of $.25 per ton for the first 
mile and $.05 per ton for each additional mile, average 
simulated costs of delivered aggregates are $1.85 per 
ton for unprocessed sand and gravel, $2.60 per CO lm h 
processed sand and gravel, and $3.00 per ton for crushed 
stone. These figures compare well with real world 
costs. Of the $84,900,000 spent fon mineral aggregates, 
the model projects that $29,500,000 (34.8%) will be 
spent for transporting material from quarries to demand 
points, a figure which is very accurate for the Tri-City 
area, the rule of thumb in the study region being 1/3. 
Average hauling distances also proved to be very 
reasonable from both the geometry of the study region 
as well as from actual transportation distance figures. 
One major crushed stone producer (for example) estimated 
an average hauling distance of 14 miles which compares 
very favorably with the simulated average of 14.6 miles. 

In order to assist in the validating process, 
the model provides the ability to investigate the 
simulated production figures for each quarry on a 


yearly basis. Attempts to compare quarry production 


121 
with simulated production have been greatly hampered by 


the fact that the latest production figures are through 
1967 and the simulation data is such that the first 
Simulated time period is 1968. Since available production 
figures for 1965, 1966, and 1967 showed no noticable trends, 
it was decided that any comparison between the historical 
and the simulated data would add little toward validation. 
On a quarry by quarry basis, the model is a 
poor predictor in areas where quarries tend to be grouped. 
If all quarries in the group are selling material at the 
Same price at the quarry site, the quarry closest to the 
center of activity supplies the largest amount (in some 
eases all) of the required material. This choice in the 
model is expected because of the non-competitive nature 
of the allocation process. In actuality, quarry costs 
are flexible enough to allow operators to adjust their 
prices and thus prevent one quarry from being the dominant 
supplier within the group. 
In those areas where quarries are grouped, 
however, the total actual production from the group can 
be compared with the average simulated production from 
that same group. The average percentage of total production 
at the two major processed sand and gravel quarry groups 
generated Ly the model was within 2% of the actual average 


percentages for 1965, 1966, and 1967. 


Ze 
The question, "Is this a reasonable answer?" 
is asked whenever output is analyzed. Hence, validation 
of output is a continuing process and is (ip aie 


described throughout the remainder of this chapter. 
6.20 Analysis of Generated Output 


The initial runs were set up to investigate 
basic aspects of the model and to provide an overall 
indication of the magnitude (in terms of tons and 
dollars) of the mineral aggregate producer-consumer 
system in the Tri-City area. They represent the system 
as it actually is at the present time. Unless otherwise 
stated, all runs have been conducted for a 13 year 
period* with a transportation cost of $725 per ton stor 
the first mile and $.05 per ton for each additional mile. 
Tons of material required are 17.8 million for processed 
sand and gravel, 7.8 million for unprocessed sand and 
gravel, and 8.1 million for crushed stone. 

The first three runs were set up for determining 
average execution time and the effect of either: 
assigning quarries to works-in-process each year, 


assigning quarries to works-in-process whenever new 


“The data generated by New York State commences 
in 1968. Road construction forecasts are given through 
the year 1980, and all other construction through 1985. 
Hence, a 13 year simulation run (through 1981) is used 
throughout the study. 
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quarries are added to the system, or assigning quarries 
only when the previously assigned quarry can no longer 
supply the needed material* (The three assignment options 
are discussed in Appendix A, A.2.). 

It is most realistic to assign quarries (based 
on a lowest cost) to works-in-process each year since 
contracts between producers and consumers are usually 
drawn up on a seasonal basis. However, since initial 
assignment is determined on a low cost basis, it is 
reasonable to assume, that if no new quarries are added to 
the system, that assignments will remain virtually the 
same as if assignment had taken place each year. Since 
the assignment procedure is the most time consuming aspect 
of the program operation, it was thought that re-assigning 
only whenever at least one new quarry was added to the 
system would not greatly affect the cost and would 
significantly reduce execution time. Assigning each 
year resulted in a total cost of $83,100,000 with an 
execution time of 200 seconds. Assigning whenever a 
new quarry is added resulted in a total cost of $84,900,000 
with eit ion time of 120 seconds. The increased 
cost of only 2.2% was accompanied by a significant 39.4% 


Saving in time. 


*T+t must be noted that even when a new quarry 
is not assigned, the previously assigned one is checked 
to see if it can still supply the required material. If 
not, a new assignment is made. 
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The third alternative, to reassign only when 
the assigned quarry can no longer supply a work-in- 
process, resulted in a total cost of $84,600,000 with 
a run time of 110 seconds. This alternative is, however, 
much less realistic than either of the above and is 
therefore not used in further runs. 

Since it is not unreasonable to assume that 
contractors will continue to buy material from the same 
operator for the same job, and because it was felt that 
the marginal benefits gained in realism were worth the 
added computational time, the "assign whenever a new 
quarry is added" option has been used in the remaining 
runs. 

In order to test.the model's sensitivity fo 
changes in transportation costs, ore with three 
hypothetical cost curves were compared with the actual 
cost curve use throughout this study (See Figure 6.1). 
The actual cost curve and experimental curves 1 and 2? 
have a slope of $.05 per ton-mile. Experimental curve 
3 could be the result of an innovation in transportation 
technology which would result in the lower cost of $.20 
for the first ton-mile and $.03 for each additional 
Mile. 

The simulated results of these runs are given 


Iiimd aie ee bn aa 


TOTAL DOLLARS PER TON 


EXPERIMENTAL TRANSPORTATION COST CURVES 


FIGURE: 641 
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Transportation Cost Curves (See 
Figure 6.1) 


Actual 


1 = 

Tote, Dollars 

Spent (x10°) $82.8 S91 SOS Saray 8 
Total Transpor- 

tation Dollars 

(x10°) S2vuS $36.1 SOS Ouran | ee hoe 
$6Total Dollars 

Spent on 

Transportation 33.6% 39.5% WS. 8%| 26.2% 


TRANSPORTATION COST ANALYSIS 


TAB Ute 6. ob 


As the transportation cost rise (experimental 
cost curves 1 and 2), the total dollars spent increases 
as does™*the percent of tetal dollars spen cog 
transporting materials. Conversly, experimental cost 
curve 3 resulted in a marked decrease in both total 
dollars and percent spent on transportation. None of 
the runs caused a significant difference in the average 
hauling distance of 11.3 miles for processed sand and 
gravel, 8.95 for unprocessed Sagi cad gravel. falrd Eis 
for crushed stone. 

When the Tri-City area was chosen as a pilot 
region, it was the consensus that aggregate supplies 
were abundant within the study region. This pre- 
conceived opinion was strongly supported by the initial 
runs, as no major changes in the quarry configuration 


were made over the simulated time period. 
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The next four runs were set up to determine 
the efrbets of radical zoning changes affecting large 
portiors of land. The grid system was subdivided into 
four separate quadrants, and the effect of zoning out 
all quarries and potential quarries within each quadrant 
investigated and compared to data generated by the initial 
set of runs. The number of active quarries zoned out 
in quadrants 15°25 3° andy? were™ 143" 255° 6 ‘and’ 9 
respectively. Results of these experimental runs are 


tabulated below: 


Without Quadrant zoned 
zoning 
changes 


Millions of dollars 
spent for: 
Processed S&G 
Unprocessed S&G 
- Crushed Stone 


Toca. 


Average dollars/ton: 
. Processed S&G 
- Unprocessed S&G 
- Crushed’ stone 


Average transportation 
mileage within grid 
system: 

- Processed S&G 
. Unprocessed S&G 
. ,.Crushed, stone 


RESULTS OF MASSIVE ZONING CHANGES 


PE 0 we 
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The Tri-City area has an abundance of 
strategically situated quarries and potential supply 
areas (see Figure 6.1). From the experimental runs 
tabulated above, it is very obvious that zoning out 
large sections increase, but only slightly, the cost 
of delivered aggregates. The total increased cost is 
only. 3.1%,.4n. spite of, the) fact that. one fourthyofrthe 
total supplies are zoned out. As a result of the 
relocation of quarries and the reassignment of suppliers 
to works-in-process, average hauling distance also 
increased, but again, very slightly. It must be noted 
that when quadrant 1 was zoned out, the average hauling 
distance for crushed stone decreased. This is because 
the outside crushed stone supplier, which is near the 
demand points in the first quadrant, became a major 
supplier to the area, thus decreasing the total ton- 
miles within the grid system. 

The next two runs were set up to show what 
would happen under, what might be considered realistic 
zoning changes. Figure 6.2 graphically portrays the 
experimental zoning changes that have been made. One 
run was made zoning out all quarries and potential 
within the shaded area in 1974 (year 4 of the simulation). 
A second run was made zoning out the 1972 area in year 
4 and then zoning out an additional ee in 1974 (Year 
6). The results of these two runs (as well as a base run 


with no zoning changes) are tabulated below. 


[7 ay". J Ae. : is 
ere, Quarries and potential quarries 


Z0ned -oOut4Alne 1 972 


YS - Quarries and potential quarries 
‘\ \\! zoned out in 1974 
Ee 


EXPERIMENTAL REALISTIC ZONING CHANGES 


FIGURE 6.2 
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Ponte ee 


Without Zoning 
Zoning ole in 
Changes 2G ES 


Re RT LN NO er ee ee oe 


Total $ spent for all 


materials (in millions) oe Sant 
Millions of dollars 
spent for; 
processed S&G SUL. 8 ; 43.6 
unprocessed S&G Ihe es! : 14.3 
crushed stone 2Led : Paihess) 
Average $/ton 
processed S&G SVapael : 22 4u 
unprocessed S&G BRE 83) ams) re 
crushed stone Zaod ° 2299 
Total amount spent, for 
transportation (in 
millizonsmot -doMiars) G1. lane 


RESULTS OF REALISTIC ZONING CHANGES 


TABLE oad 


As shown in this table, these runs provided 
interesting and unexpected results. Because zoning 
changes did not affect any crushed stone operations, no 
changes in quarry assignment (and therefore cost) 
resulted in the stone operation. Three active unprocessed 
sand and gravel operations were zoned out in 1972 and two. 
more Tree which accounted for the slight increase in 
dollars spent for unprocessed material. 

The decrease in dollars spent for processed 
material under the zoning changes seemed strange until 
a careful investigation of changes in the grid system 
was made. The 1972 zoning changes required a presently 


active operator to re-establish his operation in a location 
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which turned out to be more strategic than his present 
location. The confidential nature of this relocation 
prevents discussion in further detail, but other test 
runs have validated the desirability of the new location. 
Furthermore, as a result of validation discussions, it 
has been learned that the operator is, in fact, building 
a new plant in the general vicinity of the site suggested 
by the model. 

In order to test the model's sensitivity to 
the relative location between supply and demand points, 
all quarries were shifted 2 miles from their actual 
locations, and the total cost compared with the simulated 
output using quarry and demand locations as they actually 
are. The cost differential of $800,000 ($83,600,000 
compared to $82,800,000) is insignificant for a 13 year 


period. 
6.30 Experimentation With New Operating Techniques 


The use of unitized trains capable of hauling 
large amounts (in excess of 100 tons per car) of mineral 
aggregates is being considered as a solution for areas 
with small resources and/or rigid zoning restrictions. 
Transportation costs, however, approach $2 per ton at 
200 milés, and so forth (Liba [1969]). 

Toetest the impact of using unit train in the 
Tri-City area, a quarry capable of supplying "A’ quality 


crushed stone to the center of demand activity (1 mile 
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north of Albany) at a total cost of $3.00 per ton was 
(hypothetically) established. As expected, the results 
of this run showed that this method of distributing stone 
was not competitive in the Tri-City area under existing 
conditions. Using the low cost assignment procedure, no 
material was sold by the unit train supplier. 

Underground mining of stone has also been 
suggested in critical areas (Dunn, Wallace, and Baisuck 
[1967]). This method of aggregate extraction at least 
doublesthe: dost of matenlalxy hs OBA the. quarry ei te. 
Since this method of productior is more expensive than 
the experimental run using unit train, it too would not 


be competitive within the Tri-City area. 
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CHAPEL Ro Vary 
SUMMARY AND SUGGESTIONS FOR FUTURE RESEARCH 
7.10 Summary 


The simulation model developéd in this researcn 
has been written specifically for investigating the 
common mineral system within our urban environment. The 
ideas, concepts, and methodology, however, have far 
greater implications. The model can be immediately 
extended to include consideration of the use to which the 
land will be placed upon quarry termination; and it can 
become part of a more general land use model. 

The ideas and computer methodology specifically 
employed can be adapted to resources other than sand, 
Bravel, ang stone. In fact, any fixéd position, non- 
renewable resource can be investigated in a similar manner. 
The low intrinsic value and high bulk of the mineral 
aggregates make the transportation sensitive property 
(hence the location of the deposits) critical in the 
planning, process. High value products do not usually have 
this characteristic and will, therefore, usually be 
investigated from a viewpoint different than that 
described in this research. It must be noted, however, 
that the relationship between the value of the product 


at the quarry site and the value added by transportation 
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is a crucial one; one example of a mineral being considered 
aS appropriate for analysis by MIRSIM is potash on a 
national basis. 

The vast majority of simlation models which are 
currently operative have been written in high level 
languages ‘Sucheas FORTRAN, GPoo ol Noth) femeen cue Om pois 
These languages have facilitated the programming phase of 
model development from both ease of programming as well as 
the amount of time spent in the debugging stage. There is 
no doubt that most of the newer, higher level FORTRAN 
compilers produce a more efficient object code than their 
predecessors, but their efficiency is, nevertheless, 
constrained by the requirements of the language itself. 

The model described in this research is programmed 
in Assembly Language to insure an efficiency of execution 
which is unattainable by the higher level languages. 
Furthermore, the use of chaining techniques have greatly 
increased the efficiency of the search procedures. The 
trade-off between programming ease and model efficiency has 
been made in a direction opposite to that which is commonly 
followed; the expected longer programming period oe 
resulted in a model which can efficiently simulate the 
minearal aggregate system in large geographic areas over 
extended simulated time periods. 

Based on the results of the a pen tmer tea runs 


which have been made, it is felt that the added programming 
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time has been well justified. Since MIRSIM is one of the 

few models which has been designed to simulate real world 
phenomena and which has been written in an Assembly Language, 
it is believed that this research has displayed that assembly 
type languages can be effectively employed in simulation 
modeling. 

. MIRSIM has been well received by those who will 
use it as an aid for real world planning decisions. It has 
displaved that it can be economically used (from a 
computational viewpoint) and that the generated output is 
both realistic and informative. Since it is the only known 
model which deals strictly with mineral resource planning, 
both the developmental stage as well aes the wesults «of tthe 
experimental runs have provided a number of valuable 
insights toward applying it to nee areas whose problems 
are more serious than those in the Tri-City area. These 
results are discussed in the following paragraphs. 

Although the study area itself proved to be 
insensitive to zoning changes, the model itself is not. 
Under test conditions with few quarries and/or potential 
reserves, zoning changes greatly affected the cost of 
delivered aggregates. Since it is through zoning that 
quarries are legally controlled, up to date and accurate 
zoning data should be collected for the entire study area, 
and a careful assessment of future zoning changes should 


be made. 
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The determination of reserves at quarries and 
potential quarries can be both difficult and costly. 
Fortunately, the system has displayed that changes in 
estimated reserves have little effect on the cost of 
aggregates. Therefore, estimating procedures such as 
those discussed in Chapter V should prove sufficient in 
future studies. The use of statistical descriptions of 
reserves is discussed in Section 7.20. 

Transportation cost is, and will continue to 
be, a considerable portion of the cost of delivered 
aggregates. The Tri-City area as well as the model 
reflects that it is very sensitive to changes in trans- 
portation costs. In areas with few suppliers, the 
determination of the exact locations of quarries and 
demand points are more important than in locations sucn 
as the study area where the many suppliers are uniformly 
Situated throughout the study region. Although shifting 
the relative location between supply and demand did not 
Significantly affect the cost of delivered aggregates 
in the study area, in locaticns with fewer supply points 
changes in demand locations can be more critical. 

In a discussion about the Penn-Jersey, 
Pittsburgh, and San Francisco models, Wolfe and Ernst 


C(RPOG FILS tp. col) ee cee 


Ll. Each “has cost far More “to-proeciuce 
than was originally planned! 

2. Each badly overran the originally 
planned completion date! 

3. Not one has yet received effective 


use for the purpose which inspired 
their original design! 
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The development of MIRSIM in its initial form 
managed to stay within budgetary constraints; actual 
programming of the model, however, exceeded the originally 
estimated time by close to one year. It is strongly 
hoped that the model will, in the future, be applied to 
the planning which affects the mineral aggregate reserves 
of our cities. 

All of those associated with the development 
and evaluation of MIRSIM realize its weaknesses as well 
as its strong points. We strongly feel that simulation 
models of this type have great potential in the public 
sector; we feel that ours is a starting point for the 
evaluation of a problem which has been given little or 
no consideration in the past. Although the model is as 
complete as can be expected in an “initéal’ model, it 
does not attempt to answer or evaluate all problems 
relating to common mineral resource allocation. Land 
values are not considered, nor are land uses after quarry 
termination. Transportation costs are strictly a function 
of distance, whereas in the real world transportation 
time is becoming increasingly important. 

It is the desire of all those associated with 
this research that MIRSIM will be used for more than 
academic purposes. We welcome and solicit changes, 
additions, and suggestions that its users may have. 


We therefore outline in the next section, our suggestions 
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for future research in problems relating to mineral 
resource planning. 

MERSIM issonlLya.small portion of thes total" 
model for which we strive. It is, nevertheless a 
tangible part. Whether a "total" or more complete 
model contains MIRSIM or only the ideas contained within 
it, we feel that it has and will be an aid for logical 
and rational decision making within the structure of our 


growing urban complexes. 
7.20 Suggestions for Future Research 


‘In its present form, MIRSIM is a strictly 
deterministic model. It is believed that the addition 
of probabilistic elements to the model would increase 
its usefulness as a simulation Tote For example, 
the lives of quarries and potential quarries could be 
described by probability distributions, rather than 
using mean values as has been done in this research. 
Locations, starting times, and material requirements 
for forecasted developments could be described in 
probabilistic terms, and some of the decision processes 
included within the model itself could be made non- 
deterministic. 

The change from a deterministic to stochastic 
model utilizing Monte Carlo techniques would make 
possible a statistical analysis of the generated output, 


rather than the descriptive discussion as has been done 
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in this research. For example, the mean costs generated 
by ieee strategies could be compared statistically, 
and the significance of the different results 
evaluated. 

The model does not consider the time value 
of money; monies in the future have the same present 
value of those spent today. This modification should 
be considered in future changes or additions to the 
model. 

Finally, MIRSIM has been written in Assembly 
Language. Although this choice of language has provided 
a very efficient program from an operational standpoint, 
it has limited its running capabilities to an IBM/360 
computer. Debugging and programming was very difficult, 
and future changes will be even more an PL/1 was 
not implemented at the time this research began; it 
provides many advantages not offered by such languages 
as FORTRAN (such as the manipulation of bits of 
information) and should, therefore, be considered if an 
appreciable amount of programming changes are to be 
made, Since it is more readily readable than Assembly 
Language, the debugging procedure would be greatly 
facilitated. 

MIRSIM has been written for batch mode operation. 
Its usefulness as a planning tool, therefore, is limited 
in that (very often) many cards must be punched to try 


suggested planning strategies. From the user's point of 


140 


view, a terminal conversational program which could be 
time shared would be very desirable. Of all the 
possible :changesrmade "to MIRSIM, “itis fee that this 
one should be given a top priority. 

The objective of this research project was to 
develop a computer simulation model that will provide 
information on common mineral resources to planners in 
anyoregion.sfJlhis, projectUstarted wath avsmati nypotnet ical 
city (based on Binghamton, New York); continued with a 
medium-size metropolitan area as described in this report, 
and the next phase is, logically, a large urban-suburban 
region. In the development process, the model was 
designed in as broad a sense as possible, thus making 
it readily adaptable to any region. Nevertheless, there 
will be problems associated with a large metropolitan 
area that can only be resolved by its application to one. 
The New York City region would be an excellent test area 
for this evaluation. 

Finally, as has been previously stressed, 
MIRSIM does not provide normative information. 
Mathematical programming does optimize, and as described 
bye Distt aes C 9 6 tel eer eis Oa 

Rana irre cua whats is concerned with the 
maximization (or minimization) of 

a function of many variables, 
particularly in the case where 

the value of the variables are 
restricted in some way. Thus, given 
a numerically measurable objective 
and given mathematical relations 
that specify how various available 


actions relate to each other and 
to the objective, we seek to 
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determine ‘how much of what to do 

when' in order to achieve the largest 

value of the stated objective. 
In this description of the applicability of mathematical 
programming, two basic factors are implied: (1) there 
is a desire to optimize, and (2) a measurable objective 
and a set of given mathematical relationships exists. 

Little continues with: 

Strictly speaking, mathematical 
programming as a field starts after 

a program has been formulated in 
mathematical terms. One might 
conjecture, therefore, that practical 
problem-solving could be done in 

two stages: (1) model formulation 
and (2) model solution. 

The system which was studied - the mineral 
aggregate industry and its relationship with the economy - 
is highly complex. Initially, little was known about 
the variables involved; almost nothing about the existing 
mathematical relationships. This research chose, 
therefore, to formulate the system as a simulation 
model and to use the model to study its properties. 
Enough has been learned about the system to begin the 
investigation of optimizing techniques as described 
above. Research at Rensselaer is presently conducted 
in an effort to apply mixed integer programming techniques 
to identify these "optimal" strategies. 

The final, and most important, suggestion is to 


use the methodology developed in this report as a basis 


for investigating the problem of multiple land use. 
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Forces competing for the use of our fixed position, non- 

replenishable, resources must be evaluated in similar 

terms and in concert; it is our hope that this research 

project represents a beginning. 

7.30 An Addendum: An Investigation of the Mineral 
Resources 1n the Syracuse, New York Metropolitan 

The purpose of this addendum is to: (1) report 
on a study presently being conducted by the New York 
State (N.Y.S.) Geological Survey under the direction of 
Dr. James Davis, State Geologist, and (2) describe the 
appropriateness of the methodology discussed herein in 
meeting the objectives of this study. 

This study was conducted for the regional 
planning group whose responsibilities include Onondaga, 
Cayuga, Oswego, Madison and Cortland Counties, New York. 
An intensive field study was made of all of the surface 
mineral extraction sites in the area. Observations were 
made concerning the following: 


1). market areas in which production from 
each site is consumed; 


2). quality and uses of material produced; 
3). estimate of remaining reserves; and 
4). historical records of past production 


at the sites, 
Using this information, the production sites 


were categorized into consumption areas. The amount of 
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reserves held by current operators which can ultimately 
be used in each of these consumption areas was then 
estimated. The historical information from mineral 
production of each commodity extracted at the. surface 

was prepared and this data used as one means of forecasting 
the rate of future production. A correlation analysis 
was made between construction activity and the production 
history of mineral aggregates for each county in the 
region between 1948 and 1967. A forecast of the extent 
of construction activity to 1990 was made from the 
industry from 1948 to 1967. 

Current efforts include making a comparison 
between the existing reserve in each market area and the 
anticipated consumption of these reserves are evaluated 
by forecasting from historical information. This permits 
the regional planners to be aware of the areas in which 
shortages of mineral material will develop and the 
approximate dates the material held by existing producers 
will be depleted. 

To utilize the computer simulation approach, 
the information on supplies, both "reserves" - those 
currently held by producers, and "resources" - those 
potential sites, must be coded and put into machine readable 
form. This would involve approximately 1 man-month of 
effort, requiring virtually no field work. Application 
of the molecular approach toward development the demand on 


common mineral resources in that four county region 


144 


(as opposed to the forecasting methodology employed by 

the Survey) requires a set of land use projections. These 
projections are available from the N. Y. S. Department of 
Transportation and will require approximately 2 man- 

months of effort for necessary reprogramming and conversion 
to the format required by the madel. 

Efforts are continuing to perform this evaluation 
by comparing the output of the N. Y. S. Geological Survey 
study with the results of the computer simulation runs. 

It is hoped that this analysis will permit a cost/benefit 


determination of the computer simulation approach. 
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APPENDIX A 


USER'S GUIDE 


A.1l General Program Layout 


This section provides the instructions necessary 
to prepare the data input cards. It also includes a 
discussion of the generated output. 

There are five data sets, some of which are 
optional. Each of these sets is described in detail in 
the remainder of this Appendix. The general layout of 
the data sets is pictured in Figure A.1l. 

Note that the cards pictured above as **, nn, 
and 99, must be punched in columns 1 and 2. Also note 
that on all cards described in the remainder of this 
section, that all numbers must be right justified and 
that only the numbers 0-9 and a blank "__" are valid 
characters. Decimal points must not be jused. 


Tne last..cand in_the.data_setmust be 99. 


a 4 


aE RE REE I RT ES NF SA 
OE EL 


Intermediate Grid Infor- 
mation Cands Coeetion A eae 


Optional - 


Repeat 
eft 
Necessary Year Intermediate Card(s) 
Are To Be Read 


Initial Grid Information 
Cards, (Secrrvorne A 59) 


Optional : 
Outside Quarry Cards 


CSeotion Ait) 


Transportation Cost Carded 


A Np 


Transportation Cost Card #2 


Transportation Cost Card #1 (Section A.3) 


Option Card (Seation A.2) 


DATA CARD LAYOUT 


FIGURE AGL 


A.2 Option Card 
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The model user has certain options under which a simulation 


run may be included. The details and the format of the option 


card which must be the first card in the data set, is described 


below. 

Card Colum Identification 
oere Maximum year 

3 Allocation option 


Explanation 


The number of years the 


simulation is to proceed 


(a number from 1 to 98). 


This option concerns how 
often a quarry will be 
assigned to a work-in- 
process or development 
forecasted. The user is 
permitted three choices: 


To allocate each period. 
This option is the most 
time consuming fron an 
operational standpoint 

but is the most realistic 
from the model viewpoint. 
It essentially says that 
users will contract mater- 
ial from a supplier for no 
longer than 1 year. At the 
end of the year, if the 
project is not completed, 
a new supplier will be 
assigned. 


Allocate whenever a new 
querry is added. This 

option is more efficient 
from an operational stand- 
NOint than no. i. It essen- 
tially says that once a quarry 
is assigned (on a lowest cost 
basis) to a project that it 
will remain the lowest cost 
quarry and will therefore be 
reassigned as in option l. 
Only, when a new quarry is 


added to the system (whose 


uy 
hme 

7 

8 - 11 
A oe Bs 


Output option for 
quarry usage 


Planning horizon 


Zoning law to be 
supplied if grid 
jis not zoned 


Horizontal grid 
conversion factor 
(in miles/100) 


Vertical erid 
conversion factor 
(in miles/100) 
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cost could be lower than 
on assigned quarry) will 
reallocation take place. 


Allocate only when present 
supplier can no longer meet 
its demands. This option 
is the most efficient from 
an operational standpoint. — 
However, a new quarry added 
to the system will not be 
competitive since new as- 
Signments do not take place. 


Does the user want the 
yearly production of each 
quarry printed each year. 


DiSanion 
af yes 


How many years in the future 
should operations consider 

in the determination of the 
calculations for the centers 
of demand (a number from 1 to 
98). 


In many cases, grids will not 
be zoned. In this case, the 
model user can test the model 
by supplying zoning laws 1 
through 7 to determine the 
affect of various zoning 
schemes. (See=o0l. /,) cra 
information input card for 

an explanation of the zoning 
laws). (A number from 1- 


vay 


The number of miles horizon- 
tally over which 1 grid ex- 
tends (i.e., the number of 
miles between successive in- 
teger columms). (e.g. 

1234 = 12.34 miles). 


The number of miles vertically 
over which 1] grid extends 

(i.e., the number of miles 
between successive integer 


rows). - (@i¢:, 2752.75) mies 


16 - 19 
Note: 
20 
él 
Note: 
22) 2125 
Note: 
BG. 7 


Straight line to 
road distance con- 
version factor 


The conversion fac- 
tor usually used is 
1 mile as the crow 
flies = 1.47 road 
miles 


Lowest quality sand 
which requires 
processing 


Lowest quality 
gravel. which 
requires processing 


See columns i/7 and 
18 for a discussion 


of quality classifi- 


cations 
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The number which converts 
a straight line distance 
of,one mile to a road dis- 
tence ( @.¢., 147 = 1.47 


road -miles). 


1 = a only requires 
processing 
2 = b or better requires 


processing 

3 = c or better requires 
processing 

4 = d or better requires 
processing 


1 =A only requires 
processing 

2 = B or. better requires 
processing 

3°= C opr better requires 
processing 

4 = D or better requires 
processing 

5 = Item #3 or better 
requires processing 

6 = Item +4 or better 
requires processing 


The fixed portion of A number from 0 to 9999 


the transportation 
cost in collars ‘and 
cents. 


See transportation 
cost curve cards 


Life of new proces- 
sing plant in years 


fee... pad, = 5134) 


A number from 1 - 99 
(ours. ae@S (= 25. years) 
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28 - 30 % unprocessed If the construction site 
sand and gravel does not go through a 
which is re- highly populated area, 
quired from a the total unprocessed 
quarry sand and gravel required 


from a quarry is reduced. 
For example, if 100 tons 

ale req i.ce Uy cdi Cees le 
30%is punched on card, 30 
tons of unprocessed material 
must be obtained from a 
quarry supplier. 


Reo LransportavLom Log CULE 


A typical transportation cost curve looks as follows. 


TOTAL $/ TON 4 


Fixed 
Portion 


The fixed portion (which areibentes loading and unloading costs), 
is determined by the user and shown on the option card, colunns 
22 - 25. To this cost is added the variable transportation costs 
which are given in discrete values on the three transportation 
cost curve cards described in this section. Each cost is given as 
a 3 column number and is interpreted as dollars and cents. For 


example 123 = $1.23/ton. The cards are laid out as follows. 


Carga 
Coleen Goat) . Mileage 


< 


Ww me 
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aA Ie 25 
Card 2 

eee 26 

bo 6 aes 

7h Te - 51 
Card) 3 

pata 52 

Time of = 53 

rear 63 


It is assumed that the variakle cost curve is horizontal after 
a distance of 64 miles is attained. It must be noted that these 
cost curves apply ciuly to materials shipped within the grid system 
(hence - by truck). In reality, it is very unusual to truck for 
distances greater than 50 miles. Therefore, this restriction is 
not critical. Transportation cost from outside the grid system 


s shown in the next section. 


be 


A.4 Outside Quarry Information Card 

Very iibos it is not convenient to extend the range of the grid 
system to include al] quarry suppliers. If this is the case, the 
user may include up to 998 outside guarries, each with its own 
unique identifying number. This set of cards (if included) must 
be in serial order, starting from outside quarry no. 1. The for- 


mat of these cards is described below. 


Card Column 


1- 3 
Note: 
uy 
5 
6 - 9 
10-12 
L3.=. 15 


Ldentiticacuon 


Number of outside 
quarry 


All other infor- 
mation on the card 
pertains to the 
quarry whose number 
is in colums 1 to 3 


Type of quarry 


Quality of material 


Total cost to unload- 
ing point or to erid 
system (in dollars 
and cents/ton) 


Row unloading point 


Column unloading 
point 


A.5 Grid Information Input Card 


ee ee 
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A number from 1 to 999 


1 = crushed stone 

2 = unprocessed sand and 
gravel 

3 = processed sand and 
gravel 


(See columns 18 and 19 
of grid information card) 


If the outside quarry is 
supplying the grid syst2m 
by rail or barge, this is 
the cost to the unloading 
point. If, however, the 
outside quarry is supply- 
ing the grid systen by 
road, it is the cost to 
the grid closest to the 
outside quarry through 
which the road from the 
outside quarry would pass, 
(A number from 0 to 9999) 
(ater 527 <= 55. ey 7 tome 


The row designation of the 
grid which js the unloading 
point or the grid nearest to 
the outside quarry. 


The column designation of the 
grid which is the unloading 


. point or the grid nearest to 


the outside quarry. 


This section descripes, in detail the format of the cards 


describing the grids included within the grid system. 


Card Colum 


] - 


3 


Note: 


Identification 


Grid row 


159 


Explanation 


The row of the grid whose 
characteristics 
deseribed on the 


are 
remainder 


of the card 
(A number from 1 to 998). 


Grid column 


The column of the grid 


(A number from 1 to 998). 


All other informa- 
tion on this card 
pertains to the 
grid whose row and 
column are desig- 
nated in columns 


Le Debs, 

The zoning law af-- 0 

fecting the grid as 1 

it pertains to quar- 2 

rying (removing 

material from the 2 

ground) and 

processing. Lf 
5 
6 
7 


A blank is converted 
TOL S40: 


Special permit zoning 
laws exist in reality 
but are not implemented 
in this research. 


Is the grid occupied? 


> 


Is the grid a quarry 0 
(are aggregates 


being removed from ih 

the ground) and/or a 

processing plant? 2 
3 


iH 


I] 


i) 


no zoning 
quarrying not permitted 
quarrying permitted, 
processing permitted 
Same as #2 (under 
special permit 
quarrying not permitted, 
processing permitted 
Same as #4 (under 
special permit) 
quarrying permitted, 
processing not permitted 
Same as #6 (under 
special permit) 


no 
yes 


not quarry, 

not processing plant 
not quarry, yes 
processing plant 

yes quarry, not 
processing plant 

yes quarry 

yes processing plant 


10 
ieee 
re 

14 - 16 
1a 


Note: 


Note: 


Note: 
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Is grid a potential 0 = no 
quarry (i.e., does 1 = yes 
jit contain agere- 

gates worth mining?) 


A computer restriction 
is that the grid cannot 
be both a quarry and a 
potential quarry. 


Columns 11 - 36 pertain 
only if the grid is a 
quarry or a potential 
quarry. 


Number designation A number from O - 99 
of owner of quarry 
or potential quarry. 


If potential land is 
unowned or owner is 
not known, the number 
0 makes it available 
For anyone desiring to 


use it. 
Type quarry or If potential quarry: 
potential quarry 1 = crushed stone 

2 = sand and gravel 

If quarry: 

1 = crushed stone 

2 = sand and gravel 
(not being used as an 
intermediate processing 
plant) 

3 = sand and gravel (being 
used as an intermediate 
processing plant) 

4 = sand and gravel (which 
uses an intermediate 
processing plant) 

mesatiae (aie a Number from 0 to 100 
processed sand foro apo Pale aie) cS 


and gravel quarry 
or potential quarry) 


Quality fine 
aggregate 


I! 
eve) ler {tt 


NE WNH 
i 


= run of bank 


18 


L9sepree 


23 - 26 


27 


30 


Note: 


Note: 


Note: 


a1 


Quality coarse PA 
agcrecate 2=B 
3 =C 
4u= D) 
5 = Item 3 
6 = Item 4 
7 = run of bank 


Qualities are New 
York State Specifi- 
cations. An incorrect 
character defaults to 
#7. 


Remaining or expected Number from 0 to 9999 

life (in thousands of (e.¢., 917 = 917,000 
tons) of the quarry : tons) 

or potential quarry). 


Maximum yearly out- Number from 0 to 9999 

put of quarry or (e.c., 60 = 60,000 tons) 
potential quarry or 

(in thousands of 

tons) 


Establishment cost Number from 0 to 9999 
(in thousands of (e.g., 500 = $500,000) 
dollars) if grid is g 

a quarry without a 

processing plant, or 

a potential quarry. 


This cost includes 
cost of processing 
plant, removing 
overburden, access 
roads, etc. 


or 


Amortization cost of Number from 0 to 9999 
initial investment (e.c., La 51.32) 
(in dollars and cents/ ~ 

ton) if grid is a quarry 

with a processing plant. 


The amortization cost 
is essentially the 
initial cost of estab- 
lishing the quarry 
divided by the initial 
life of the quarry. 
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31 - 34 Cost to mine and Number from 0 to OO000 
process per ton (eng., 724 = 57-24) 
(in dollars and 
cents) for quarry 
or potential 
quarry. 


Note: Profits may be included 
in this dagures eit) they 
are, they should be in- 
cluded in the all other 
quarries and potential 
quarries also. 


85 ,626 Life processing lhtgrid 1s asquarry and 
plant in years a processing plant, its 
remaining life ( a number 
from 0 to 99) 


87 Is a development 0 = no 

forecasted 1 = yes 

mi teg, Lake Year development If grid is a developmen: 

forecasted will forecasted, the year it 
start will start (a number from 
Qato 99) 

40 Is work in process At the time of the initial 
data input, is work in 
process 

0 = no, 
1 = yes 
Note: Columns 41 - 79 are 

pertinent only if 

the grid is a work- 

in-process ora 

development forecasted. 

4“) - 44. Processed sand and A number from 0 to 9999 


gravel to completion (e.g., 1234 = 1,234,000 tons) 
(in thousands of tons) 


4S Minimum quality (See column 18 for quality 
processed sand classification) 
and gravel required. 


UG - 48 % sand if processed A number of O to 100 
sand and gravel is fede. 2.33 = 33% 
required. 


EO 


Sire 


58 


Sie 


57 


59, 60 


71 - 


sti. 


7/7 - 


70 


re: 


76 


rh 


Unprocessed sand 
and gravel to 
completion (in 
thousands of tons) 


Minimum quality 
unprocessed sand 
and gravel required 


Crushed stone to 
completion (in 
thousands of tons) 


Minimum qua]ity 
crushed stone 
required 


Years to 
completion 


Row processed sand 
and gravel supplier 


Colum processed 
sand and gravel 
supplier 


Row unprocessed 
sand and gravel 
supplier 


Column unprocessed 
sand and gravel 
supplier 


Row crushed stone 


supplier 


Columm crushed 
stone supplier 
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A number from 0 to 9999 
(e.g., 1682 = 1,682,000 
tons) 


(See column 18 for 
quality classification) 


A number from 0 to 9999 
feFevy.397 =. 397,000 tons) 


(See column 18 for quality 
classification) 


If grid is a work-in- 
process or a development 
forecasted, how many years 
it will take to complete it 
(a number from 0 to 99). 


At the time of the study, 
the actual supplier to 

a work-in-process or 
development forecasted 
might be known. If so, 
the row and colum of 
that supplier can be read 
in as input. 


If the quarry supplier 
is from outside the 
grid system, the row 
must be 999 and the 
colunmm contain the num- 
ber of the outside sup- 
plier. 


An incorrect row and/or 
colunm designation acts 
the same as if a quarry 
is not assigned. 
(numbers from 1 to 998 
with the exception noted 
above) 


Although it is not necessary to have a card for each quarry 


within the system, the cards mist be sequenced by row, starting 
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with the lowest numbered colunm in the lowest numbered row. 


A.6 Intermediate Grid Information 

As shown in section A.5, grids can be multiply-defined (for 
example they can be both a quarry and a development forecasted). 
However, due to programming restrictions, they cannot be two 
developments forecasted or a work-in-process and a development 
forecasted, one scheduled to start in period N, and another in Ny 
(where Nj < N.). In real life thae case often arises. 

Therefore, when it is known in advance that a grid is to be 
more tkan one development forecasted, intermediate cards describ- 
ing the all developments forecasted beyond the first can be read 
into the model. This is done by preparing a "time card" with the 
year the new development (s) forecasted are to read in (punched 
in columns 1 and 2 - see section A.1) followed by the card(s) 
describing the: developments to he started in that year. These 
cards are followed by a card with "**" punched in columms ] and 2. 

This set of cards also allows the zoning law affecting any 
grid to be changed at the point in time designated by the "time 
Carat 

If more than 1 intermediate orid data card is read in a given 
time period (as designated by the time card), the cards must be 


in the same order perscribed by the grid information cards. 


Card. GolLwm tdentitfication Explanation 
1] - 3 Grid row See grid information 


cards (Section AS) 


Y- 6 Grid column Colunms®]9="6 


Note: 


Note: 
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Zoning laws If the zoning law is to 
~ be changed, a nunber 
from 1 to 7 (see column 
7y"erid information 
card) must be included. 
A blank designates no 
change in zoning law. 


unused 

Is grid occupied 0 = no 
1 = yes 

unused 

Is a development 0 = no 

Forecasted 1 = yes 

The remaining infor- 

mation on this card 

pertains only if a 

development is fore- 

casted, 

unused 

same as colunns 4] - 60 


on grid information 
card (see section A.5) 


unused 


It must be noted that 
any grids which are to 
have developments fore- 
casted read in on inter- 
mediate grid cards must 
have all present work 
completed. 
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A‘ 76) Sample Output 


The following two pages are an example of 
output generated during one year of a simulation 


run. 


CUMULATIVE TOTALS UP TO AND INCLUDING YEAR 4 


PROCESSED SE&G UNPROCESSED SEG CRUSHED STCNE 
CUMULATIVE DOLLARS 16,110,365 8,905,032 13,366,5€€ 
CUMULATIVE TON-MILES 65,071,600 52,035,875 €3,799,0CC 
CUMULATIVE TONS 64524,200 494935875 41493,25C 


CUPLLATIVE TRANSPORTATION COLLARS = 13,487,520 

CUPLLATIVE TONS FROP CUTSIDE GRID SYSTEM = 123,000 
CUPLLATIVE COST MATERIAL FROM OUTSICE GRID SYSTEM = 375,95C 
CUPLLATIVE DOLLARS = 38,757,933 

CUPLLATIVE TON-MILES (WITHIN GRID SYSTEM ONLY) = 180,9C6,475 
CUPLLATIVE TONS = 159634,325 

CUPLLATIVE TONS WASTEO AT ZONEC OUT QUARRY SITES = Cc 
CUPLLATIVE TONS WASTEC AT ZONEC OUT POTENTIAL QUARRIES = 


CUPLLATIVE MATERIAL WASTED = 0 


PATERTAL USED AT CUARRIES CURING YEAR 4 


NEW CUARRIES 
GRIC TCNS MATERTAL 


52» él 2C0,CCO 


et (atal 
owes 


#0 eeh pe 


patente 9 kena alll om ie a ea 
wet re ) 
. ~ | eee 

Tyr pe, Qaa iee ane sate dnd bes vy s ‘ 
we Awa ‘Sh, i) . 2 


rte At) ee hier 


Co) s/he siete 

a oh fe iy gles bir 
ib Fae 90 We (dep aed) Palle aoyd 
nits ies S16 st Sine tS 


BEGIN VEAR 4 
AS & RESULY OF ACTIVITIES OF THE PREVIOUS YEAR, THE 
FCLLORING CHANGES ARE MADE IN THE GRIO CONFIGURATION 


GRIC 36, 42 1S WEIGHTED GEOMETRIC CENTER FOR PROCESSED SANC AND GRAVEL 
GRIC 37, 42 IS WEIGHTED GECMETRIC CENTER FOR UNPROCESSED SAND AND GRAVEL 
GRIC 36» 42 IS WEIGHTED GEOMETRIC CENTER FOR CRUSHEC STONE 

POTENTIAL CUARRY IN GRIC 52, 61 IS ESTABLISHED AS A CLARRY 

CUARRY IN GRIC 540 60 HAS BEEN REMOVEC FROM SYSTEM. 

UNUSED MATERIAL IS 0 TONS. 

YEARLY DEMAND ON QUARRY IN GRIC 50, 48 HAS EXCEEDED MAXIMUM YEARLY CUTPLT 
OUTSICE QUARRY 1 HAS BEEN ASSIGNED TO WIP IN GRID 13, 6C. 


OUTSIDE CUARRY 1 HAS BEEN ASSIGNED TC wIP IN GRID 17, 5é. 


TCTALS FCR YEAR 4 


PROCESSEC SEG UNPRCCESSEC SEG CRUSHED STCKE 
TOTAL DOLLARS 4,597,590 222295E€28 34556,0€7? 
TOTAL TOA-FILES 18,970,1CC 125495,€25 1€,506,5C€C 
TOTAL TONS 1,864,€00 1,259,125 1,210,25C 
TCTAL TRANSPCRTATICN DCLLARS = 2y€C8,6CO 
TCTAL TONS FRCP CUTSICE GRIC SYSTEM = 31,CCC 
TCTAL COST MATERIAL FRCM CLTSICE GRIC SYSTEM = 89,25C 


TOTAL COLLARS = 10,472,555 

TOTAL TON-MEILES (mITHIN GRID SYSTEW CNLY) = 47,972,225 

TCTAL TONS = 45364,975 

TCTAL TONS WASTEO AT ZCNEC OUT CUARRY SITES = i 
TCTAL TONS WASTEf AT ZONED CUT POTENTIAL QUARRIES = Cc 


TCTAL PATERIAL WASTEC = c 


hr : Be) i> - 7 4 - 
AP ; he ua 


\ 


, uj oes Sia wat er ee 
7 nit Les tame " 4 :: P 
: ” 
reavten 4G diay Spadege'7i' WT 68 
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poaeis? || “ery 


ae 


ii Py, 
a, iL 1.10416 C9894 ty iv “O90. vues q 
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APPENDIX B 


PROGRAMMER'S GUIDE 


The purpose of this Appendix jis to provide information which, 
when used in conjunction with the Detailed Flow Diagrams (Appendi> 
C) and the documented program itself (Appendix D), will enable a 
competent IBM/360 Assembly Language Programmer to make changes 


and/or additions to the computerized model. 


B.1 General Information 

The computer program may be zessembled as four separate 
assemblies, in which case dummy sections of COMMON must be included 
with MINESUBR, BEGINIT, and MINEDP. The actual COMMON must be in- 
cluded at the end of MINEINPT. If program is run from object decks 
prepared by these separate assemblies, MINEINPT must be included 
last and an entry reference to MINEINPT given in the control cards. 

If the model is run as one job, MINEINPT mist be last with 


COMMON at the very end. 


B.2 Matrix Configuration 
Information concerning each of the grids is stored in a matric 
(called MATRIX), each grid requiring 84 bytes of core storage. The 


layout of the grid is given below; each characteristic is expressed 


as a displacement (in bytes) from the first byte in the grid. 
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Location Length 
(Displacement) (in_hytes) Identification Explanation 
+0 2 Row The row of the matrix* 
+2 2 Column The column of the 
matrix 
Zoning law 0 = no 
Bits 
lL ‘= yes 
+4 ut Ne Xe oly hapa tee a OK. 
Wa 
Lia Oy 
ON is is 
eh m Oo 
be 3 Pme 
m KO 
Ha, < 
Hs 
ue! ee 
O a5 
rs 09 
S| oy 
bs fF 9 
ct bY 
O 
i 
Oz 
a 0 
a, 
es uF Quarry 0 = no 
identification Bits 
1 = yes 
Xe Bie. Dee 
TH HHO WH He 
Pnonnowasn w 
o © 
bebe be SO ob 
Meet Oct. DB 
ct Oten 
not = oa 
Eran ey soy ramets 
o3¢ O00 Hy 
Dan ax op 
3 = i) 
oOo s fe) 
Nos oe Obes 
omer O30 Oo 
rm Hes 3 CO eon 
DUS arias Q = 
a8 Oo ct OM oq 
o9SerHon 
ee Moyes. N56 
iS a ee) KG) ee) he 
ter OO ase 
Bye? oO, 
Pet Slane y) (qi) et ad 
0 kr? OD 
ard 0 oO. 
be 
pu es 
+o DT 
oO O 
Roe 
<0 
RO 
fe) 
nal Ne 
Oo 
Peo 
3 Oo 
bop dest 
J 
aq 


* All numbers are expressed in true binary (or integer) form. 


+6 1 Potential 0 = no 
quarry Bits 
identification 1 = yes 
RX VOR SX XX X 
mT HH mo 
on mM dp 
n 
be pe bY. 
oh rir ct 
ct 
nO to 
rw O 
oo ££ ct 
MO er a0) 
s =y | 
© 0 ct 
N ot Q, -. 
O 5a, cy 
= wn = 
(SAS “tet 
me Oo iG 
Sie Gc 
O° o 7 
cs 0 K 
te 8 
ee 
Note: The following information is pertinent 
only if the grid is a quarry or a potential quarry. 
+7 1 Owner An identifying num-- 


ber either given on 
the input card or 
generated by the 


model. 
+8 uy Life of Expressed in tons 
quarry 
+12 y Maximum yearly Expressed in tons 
output 
+16 Y Estab] ishment If grid is a quarry 
cost without a processing 
plant or a potential 
quarry, the estah- 
lishment cost is 
given in dollars. 
+20 2 Cost to mine Expressed in 
and process cents/ton 
sd] 
+22 2 Quality fine (See NeY.S. Speeifi- 
agorecate cations) 
ae Vest 
baer LELITLELG 
e = 11111100 
d = 11111000 


Bank run = 11000000 


+23 


+24. 


ite 


Quality A SP lack 
coarse 1s Sia tk EA 
ageregate Cs WLLIave 
Dees eG 
Gravel Item 3 = 1]110000 
only Jtem 4 = 11100000 
Bank run = 11000000 
oo Send lL Expressed as a whole 
sand and number (365,699 = 
gravel) 35%) 


Note: The following items are pertinent if the grid is a work-in- 
process (WIP) or a development forecasted (DEVFO) . 


+25 


+26 


+27 


+28 


ah aie 


+36 


if 


Is a develop- 0 = no 
ment fore- 1 = yes 
casted 


Year DEVFO will Expressed as a number 


start (From 1 to 98) 
Years to The number of years it 
completion will take to complete 


the DEVEO or WIP 


Processed sand The amount of material 


and gravel to required to complete 
completion the project. 

(in tons) 

Unprocessed sand A . 


and gravel to 
completion 
(in tons) 


Crushed stone to i " 1 
completion 
(in tons) 


Quality (See +25) 
processed 
S & G required 


% Sand to Of total amount of 
completion sand and gravel re- 
quired, that amount 
' (as ae%y which as 
sand. 
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+12 1 Remaining If grid is a quarry 
life with a processing 
processing plant, the remaining 
plant Jife of that plant 
(in years) in years. 
+43 1 Is work-in- 0 = no 
process 1 = yes 
+YY 1 Quality un- (See +25) 
processed S&G 
required 
+15 1 Is grid Can unprocessed sand 
occupied and gravel be obtained 
at the site (U0= no, 
1 = yes) 
+146 2 Amortization If grid is a quarry, 
cost the fixed cost in 
cents/ton 
+48 1 Quality crushed (See +23) 


stone required 


+9 I If quarry sup~ XX K K K X K X 
plier is outside 


orid system, type aes 
of quarry nou wi 
QA Crd 
ry) od ots 
ah Ba & 
Nn 30 
+ OO 
0A 
amd w 
nO 
one Es 
c+ 0 
oaW 
a a 
ona 
04 
os 
+50 
rok = unused 
52 Le Quarry or (See chaining) 
potential quarry 
chain address 
+56 Uh Development fore- " . 
casted chain address 
+60 Uy Work-in-process ¥ e 
chain address 
+64 Y Core addcess of If DEVFO or WIP 
processed sand 
& geavel supplier 
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+68 Ly Core address un-- If DEVFO or WIP 
processed sand 
& gravel supplier 


+72 Ly Core address % 2 
crushed stone 
supplier 

+76 UY Amount of If grid is a quarry, 
material its yearly usage 


presently being 
used (in tons) 


+80 Uy Address inter- Lf WIP*is cetting 
mediate point material from a 

quarry which is 
shipping to an in- 
termediate point, 
the core address of 
the intermediate 
point. 


B.3 Core Size Requda.rements 


The amount of core required by the program itself’ is as follows: 


Section Characters (Bytes) 
MINESUBR Pe psy” 
BEGINIT 24UUN8 
MINENP 5688 
MINEINPT Reel ee 

TOTAL fee ae 


To this (8!'t x number of grids must be added) + (16x number of 
outside quarries in excess of 10). In order to increase the number 
of outside quarries, the duplication factor on statement 3874 must 
be changed to be equal or greater than the required number. 
Similarly, to increase the number of grids, the duplication factor 
in statement 3907 must be changed to at least the actual number of 


grids included within the system. 


Lip, 
B.4 Subroutines 
Included in this section are the subroutines which are used by 


all sections of the program. 


B.3.1 Subroutine Add Quarry to Quarry Chain (SRAQ) 

This subroutine is responsible for two functions: 1) to add 
a quarry to the quarry chain by including its address in the chain, 
and 2) to provide it with an ownership identification if it is 
added because of demand requirements. (See flow diagram, Appendix 


C, page 16, and coding, Appendix D, statements J0-64). 


B.3.2 Subroutine Add Potential Quarry to PQ Chain (SRAPQ) 

pee Bate " "  Work-In-Process to WIP Chain (SRWIP) 

B.3.4 = " Development Forecasted to DEVFO Chain (SRADEVFO} 
These subroutines are responsible for setting the address 

pointers which will attach the item added to its proper chain. 

(See flow diagrams Appendix C, pp. 16-17, and source coding, 


Appendix D, statements 66-1241). 


B.3.5 Subroutine Delete Quarry from Q Chain SRNQ) 


B.3.6 seat z Potential Quarry from PQ Chain GRDPO) 

hfe Bh : es Work-In-Process from WIP Chain (SRDWIP) 

|e a i e Development Forecasted from DEVFO Chain 
(SRDNEVEO) 


When an item is renoved from a chain, the entries within the 
chain must be relinked in order to keep the chain intact yet ex- 


clude the address of the deleted item. It is the responsibility 
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of the above four subroutines to make the necessary addressing 


changes. (See flow diagrams, Appendix C, pp. 18-19, and source 
coding, Appendix D, statements 126-247). 


B.3.9 Subroutine Determine Distance Between Two Points (SRDIST) 

The subroutine determines the distance (in road miles) between 
any two points. Using the row and columm coordinates of each of 
the points, the straight line distance is found and then converted 
to a road distance by multiplying by the proper conversion factor 
which is set by the user (See Appendix A, Section A.2). 


The formula used to determine distance is given below 


RD = 
12 
where 
Ue = road distance point 1 to point 2 
fs = conversion factor from straight line distance 
to road distance 
a = row point l 
tr, = row point 2 
o = colum point 1 
c, = colum point 2 


(See flow diagram, Appendix C, p. 20, and source coding, Appendix 


D, Statements 2!9--319). 


B.3.10 Subroutine Determine Transportation Cost (SRTRCST) 
This subroute determines the transportation cost (in dollars/ 


ton) to ship material over a distance determined hy SRDIST. The 


177 
transportation cost curve is set by the user as explained in 
Appendix A, Section A,3. (See coding, Appendix D, Statements 


321-856). 


B.3.11 Subroutine For Determining Allowance On Existing Processing 
Plant (SRAOEPP) 


As discussed in Chapter '!, Section 4,34, it is the responsi- 
bility of this subroutine to determine the allowance (based on age 
of existing plant) that an owner ean deduct from the cost of estah-~ 
lishing a plant at a new location. (See source coding, Appendix D, 


Statements 358-392). 


B,3.12 Subroutine Weighted Geometric Center (SRWGC) 

This subroutine determines the weighted geometric centers for 
processed sand and gravel, unprocessed sand and gravel, and crushed 
stone as discussed in Chapter 4, Section 4.35. (See source coding, 


Appendix D, Statements Y4O'4-646). 


B.3.13 Subroutine Present Period Usage (SRPPU) 

This suhroutine determines the tons of processed sand and 
gravel, unprocessed sand and grave], and crushed stone of required 
by a project during a given year. It is assumed that usage is 
divided evenly (by year) over the entire project length. (See 


source coding 


= > 


Appendix D, Statements 808-846). 
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B.3.14 Subroutines CARDIN & LINEOUT 
These subroutines are responsible for handling all input and 
output functions of the program. The input field INPUT and output 
field OUTLINE is set by the main program before calling CARDIN or 


LINEOUT. (See source coding, Appendix D, Statements 648-806). 


APPONDLA ec 


DETAILED FLOW DIAGRAMS 


iA) 


The following flow diagrams contain in detail 


the logic of the computer model. 


Block forins used are: 


REY PT RARK AAA A 
4 
% Terminal Block 
ae 
ray 


te Input/Output Block 


Sui = Block identification 


* * Sees Block adentification 


* Operation or Decision Block 


* XOcesbhackardentiarication 


fe 0°, © fe als afo aa a%o ale ale aa ols ole 
. . 


we eet an ale o 
anew x ness ce en ee ed 


: Af) Se A Called Subroutine 
XXXXXXA I - ¥KXXXXXX 


sie) 
t jj 


% Off “Page. Conector 


% iii = page 


Subroutine name 
Subroutine page 
Bntrye btock 

identification 


"ik Moo = hiock identification 


ts on page ili 
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Blocks may be named. If they are, the name 
(which appears over the left corner of the block) 
corresponds with the name of the Assembly Language 
instruction. 

The following abbreviations are used throughout 


the flow diagrams: 


ADDR - Address 

AMORT - Amortization 

DEVFO - Development forecasted 
DEVFO(i) - Development forecasted whcese 


address is in register i 


ECLUEE? - Expected life 

EST - Establishment 

pare Bert -: Floatinea peu. 

GEOM - Geometric 

INFO ~ Information 
INTER er 
INTER RSP - Intermediate processing 
iH» plant 

LARG - Largest 

MAT'L ~ Material 

NEG ~ Negative 

oes pur - Processing Plant 

PQ ~ Potential quarry 

EXXCT) - Potential Dee whose 


address is -in register 1 


Let 


Q - Quarry 

O03) ~ Quarry whose address 
is in register i 

Ql - Processed sand and gravel 
quarry 

Q2 - Unprocessed sand and gravel 
quarry 

Q3 = Crushed stone quarry 

REGi - Register i 

REG - Required 

SEG - sand and Gravel 

TRANS - Transportation 

WIP - Work-in-process 

WIP(i) - Work-in-process whose 
address is in register i 

WGCCS ~ Weighted geometric center 
for crushed stone 

WGCPSG = Weighted geometric center 
for processed sand and 
gravel 

WGCUPSG - Weighted geometric center 


for unprocessed sand and 
gravel 


The flow diagrams on the following pages were 
prepared using the IBM Flowchart language. The page 
numbers are supplied by the flowcharting system and are 


the pages to which the body of the thesis refers. 
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SRETDDEV 
HESS HI eeeesseses 
* 


* 

*SET POINTER AT * 
-—>* DELETED DEVFO * 
* To -1 * 


* * 
REECE ESESREE SE SEES 


Pret RRL iti tei t 
* 


* 

* RETURN * 
* * 
THRESH EEE 


PAGE 019 
06/05/69 
SRDWIP 
SHEREAS ERO HER EEE 
* * 
* ENTER * 
* * 
Prt re retire tet 2 
FREE DO EERE SESE ES 
* * 
*LOAD REG8 WITH * 
SSTART WIP CHATR® 
* * 
KECK KEKE RED EE 
OWIP 
KEKKKCH EKER EERER KEREKCOKEREREKERE 
* * *COMPARE ADDR OF* 
* SWIPCH=-1 * EQ.* WIP TO BE * 
---* TWIP PCH=- 4 ; ccaeaanate DELETED WITH * 
SADDR OF END WIP* 
* CHAIN * 
eesecesenscenense rhe tanker tosses 
e NE. 
FWIP | 
SHEED UE SEHESS HERE SERSSDDLISEREOS SS 
* * 
*SWIPCH=ADDR OF * YES*IS ose ah Ins 
—* SBCOND WIP IN *<-~---—---* CHAIN BE 
[ * CHAIN * * DELETED? : 
* * * * 
SHKEEEREEEEESE EE KH SeRERERE EOE EE EEE E 
eee NO 
* * 
* HS * 
* * 
eee 
KGWIP 
SHEKEL Y SEH HER EE EE HEREEES HERE E REE ER 
* STORE ADDR OF 5 * * 
* NEXT TO LAST *LOAD REG9Y WITH * 
syle IN CHAIN IN * ADDR OF NEXT ¥*<-- 
: TWIPCH ‘ WIP IN CHAIN . 
preter iter ire res 


RESHEEREEKEKERERE 
A 


PIWIP Y 
Sees Pysee 
* 


*IS IT LAST WI 
*WHICH IS TO B 
* DELETED? 


* 
SEEKER ETEE HERES 
NO 


ES 
eeeee ee 
* 
T Pp * 
EB * 
* 


*ADDR IS IN REG8* 
* * 


tas 


RECEEP OER SEEKER ES 
* DOES REG9 * 
a hl 2 5 | ADDR OF* 


—_-—* WIP TO BE * 
* DELETED? * 
* * 
CREEK ERE EE EEE 

NO 


REEKECS ERE EE EEE 
* * 
*LOAD REGS WITH * 
* ADDR OF NEXT *--- 
3 WIPE IN CCHALN 


« 
SEEKER EEKEE EERE 


REKEEEEKAERERE EERE 
SRETDWIP 

REKEKYS ERE KEE SEES 
* * 
*SET POINTER AT * 
—————_—-—____—_ > *)ELETED WIP TO * 
Ate = * 
} * * 
| ERKKREKEREE ERE RES 

+hae 

* * 

* HS * 

* * 

**ke 


HEEK IS RR ER EK EEE 
* 


* 
* RETURN * 
* * 
TTKERERE SEER EEE 


SUBROUTINE SRDIST PAGE 020 
06/05/69 


DETERSIWE DISTANCE BETWEEN 2 POLETS 


SEDIST 
SO CaA TRO SE ERS 
* * 
* ENTER * 
* * 
pres t rr irri errs 


RORSER ISSR ERESE 
* ‘. 
* COMPUTE: 

SABSOLUTE VALUE : 
* (ROW (1) =ROW (2)) * 


SHSESHSKSEKEKESR ESSE ES 


bbb AEE db hd bead tos 
* 


ONVERT TO * 
*PLOATING POINT < 


‘ 
neeapaceasenseene 


SESCSEH ISSKSESEK EEK 
* s 
* COMPUTE: * 
*ABSOLOTS VALUE * 
# (COL (1) COL (2)) 


SSSSCHESESESS SE ESEE 


SORSHRISCSKSEeEKESE 
* * 


* CONVERT TO x 
SPLOATING POINT : 


* * 
SHEESH EEREK EK EEE 


SECKSP Ste ee se eee 
* COMPUTE: * 
edn bbeeer DELTA) * 
**® VERTICAL GRID* 
* CONVERSION 
* FACTOR) *#2 * 
SHSSSCSSKSESESKEKE 
SHEKEES I HKESE KEE HE 
* COMPUTE: 
ooh BS (COk DELTA) * 
** VERTICAL GRID* 
* CONVERSION * 
* PACTOR) $¢2 * 
SESS SESCESEK ETERS 
SCHRESHIEKERE SE REH 
* * 
* ADD: * 
* (VERTDIST) *#*2 © 
HORZDIST) #*2 : 
SERSSKEKEREK EE EEE 


eo 


FHSSKD URE ERE SESE 


Is * 
VERTDIST) **2 *YES 


HORZDIST) ##2 * 
=0? * 


* * 
PECKEEEKEE SEES EES 
N 


SECKE LU KEKEREREEE 

#ST LINE DIST = * 
Bist * 

+ (VERTD Stee2 + * 

$ HORZDISTS#2) 

* (SEE FOOTNOTE) ## 

SEEKS KEKKEKE ERE 


SSCP Yee eee eseee 
* * 


*MULTIPLY BY ST * 
SLINE CONVERSIONS 
* PACTOR (1.47) 


FSSC ES SER ESE SEES 


SAMEG 


FREE EO KEREKE REESE 
*SET DISTANCE = * 
* HORIZONTAL * 
* CONVERSION * 
* FACTOR/2 ba 
* * 

* 


SEEKER EREE EE EES 


Catt eae ae eee 


RETDIST 


SHEE C USSR Eee EEE 
* 


* 
* RETURN * 
* * 
SEKKEESE EK EEE EEE 


°o 
ZO 
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ji . _ APPENDIX D 
} peemaneiry, Sherr}, mols, 
: CSIES WA, VO", Catrntwes, >*7 wre 
; ; 5 ener, ARDS VL 1h), bee, wat 
i] , ewrre Sul re, etn .w Ai 
« aie 
> f) IN PROGRAM 
it e = 9 
: The following pages ccntains the Assembly 
guage listing of the entire simulation model. 
J 
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LcC CBJECT CCOE 


occcco 


0c37CC 


tcc 


occccc 
oceccc 
occcc4 
occccs 
ecceccc 
ococic 
ocool1s 
ococis 
ococic 
ococ2c 
occc24 
ecoc28 
occc2c 
occc3c 
OccCc34 
occo3e 
ococ3c 
occc4a 
OC0C44S 
occc4seé 
Ocec4c 
occecsc 
OCcCC54 
occ0sé 


6COC5A 
OCOCSE 
0C0062 


OCOCGéé 
OCOOEA 


OCOOGE 
occc72 
occo72 
ocooTé 
OCCCTA 
ocoa7c 
ocoosec 
occos4 
ocooee 
6cagsc 
ocoosc 
occo92 


occo96 
OCOO9A 
ecocac 
Ocodn4 
OCQOAE 
OCOOAA 
QCOCAE 
acecec 


ACDRL ADCR2 


STMT 


1 
2 
3 
4 
5 
6 
7 
8 


SOURCE STATEMENT 


MINESUBR 


SUBRCUTINE ACD CUARRY TO QUARRY CHAIN 


CBJECT CCF 


90EC 
587C 
9120 
4710 
9532 
478C 
43F0 
4480 
4780 
5C70 
47FO 
4380 
4480 
4780 
507¢ 
47FO 
5070 
47FO 
507C 
47FO 
5880 
1288 
472C 


5070 
507C 
4TFO 


5890 
5C7C 


5070 


$5co 
4770 
1855 
4350 
415C 
425C€ 
4250 
5850 
1255 
4770 


5070 
C203 
98EC 
CTFE 
91¢0 
9100 
64 


occec 
2C84 
7C05 
FC4C 
7018 
FO2C 
2268 
FCA6 
F048 
2LLC 
FOS5SC 
2269 
FOAA 
FC48 
211C 
FOSO 
2124 
FC5C 
212C 
FC50 
2C64 


FOG6é 


2064 
2074 
FOT2 


2C74 
9034 


2C74 


7007 
FOS8C 


FOAE 
5001 
7CO7 
FOAE 
2148 


FOSA 
2148 
7034 
ococ 


7016 
7017 


ACORL 


ccocs 


coola 


ccoo7 


2060 C0034 


coo16 
ccol7 


ACCR2 


occcc 
03784 


0c040 


0002Cc 
03968 
OOOA6 
o004A 
O381C 
ocos0 
03969 
OCOAA 
0C048 
0381C 
0c050 
03824 
ocos0 
03820 
0c050 
03764 


OCOE6 


03764 
03774 
ocd72 


03774 
00034 


03774 


0008sc 


OCOAE 
occol 
oc0o07 
OOQOAE 
03848 


OOO9A 
03848 


03760 
Occoc 


STMT 


CSECT 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
USING 


FOLAUG68 


SRAQs SRAPQ, SRADEVFO,SRAWIP 
SRDQ,», SROPQ,SRODEVFOsSROWIP 


CARDIN»LINEOUT, SRWGC»SRIRCST 


SRDIST»SRAGEPP, SETZL »SETQUAL 


SRPPU 
INDCB,OUTOCB 
COMMON »2 


FOLAUG68 


LOAD 7 WITH ADDR OF Q TO BE ADDED 
TS) TT PANCSIO 

IF YES GO TO QAACSQ 

IS IT AT LEAST 50 PERCENT SAND 
IF NOT, GO TO TGRVL 

DOES FINE AGGREGATE REQ PROC 
se 

IF NOT, GO TO QAUPSG 

STORE ADDR OF Q ADDED IN SEG Q 
OTHERWISE, GO TO L8WSQCH 

DOES COARSE AGGREGATE REQ PR 
ve 

IF NOT, GO TO QAUPSG 

STORE ADDR OF Q ADDED IN SEG Q 
OTHERWISE GO TO L8WSQCH 

STORE ADDR OF CS Q ADDED 

GO TO L8wSQSH 

STORE ADDR OF UNPROCESSED Q ADDED 
GO TO L8WSQSH 

LOAD REGS WITH START Q CHAIN 
TEST ADOR FOR -1 

BRCH ON + TO AT LEAST ONE Q 


SET STARTING ADOR 
SET END ADDR = START ADDR 

GO TO RETURN 

ONE QUARRY 

LOAD 9 WITH ADDR OF LAST IN CHAIN 
STORE ADDR OF Q TO BE ADDED AT 
POINTER OF LAST ONE AODED TO CHAIN 
CHANGE ADOR OF LAST ONE ADDED 


IS OWNER OF Q BEING ADDED = 00 

IF NOT, GO TO ISITL 

CLEAR REGS 

INSERT HIGHEST NO. OWNER INTO REGS 
ADD 1 TO HIGHEST NO. OWNER 

SET OWNER IN QUARRY ADDED 

UPDATE HIGHEST NUMBER OWNER 

LOAD REGS WITH ADDR FIRST QO ADDED 
IS ADDR O (WAS IT THE FIRST Q) 


IF NOT, GO TO SETAOR 


IT IS THE FIRST Q TO BE ADDED DURING THE PERIOD 


STORE ITS ADOR IN REGT 
MAKE ITS POINTER ADDR = -1 


SOURCE STATEMENT 
USING #,15 
SRAQ STM 14,12,12(13) 
u 7,AQTBA 
™ 5(7)5X"20° 
RO QAACSQ 
cLi 24(7),50 
BNL TGRVL 
Ic 1L1,DFAREQPR 
EX L1,CEFARPRL 
BZ QAUPSG 
ST 7» TYPQASG 
B L8WSQCH 
TGRVL 1c 11,DCAREQPR 
EX 11,CiCARPRI 
BZ QAUPSG 
st Te TYPQASG 
BR L8WSQCH 
QAACSQ ST Ty TYPOACS 
B L8WSQCH 
QAUPSG St Ty TYPQAUSG 
B LBWSQCH 
L8WSQCH L 8,SQCH 
LTR 8,8 
BP ATLOQ 
*® AT THIS POINT THERE ARE NO QUARRIES 
ST 7,SQCH 
ST 7, TQCH 
8 RETAQ 
# AT THIS POINT THERE IS AT LEAST 
ATLOQ L 9,TQCH 
ST 79521059) 
s 
a 7» TQCH 
RETAQ EQU # 
cL T(7),X*00* 
BNE IS{tTl 
SR 5.5 
tc 5¥HNO 
LA 551(0,5) 
STC 557(0,7) 
sTc 5 HNO 
IStT.l L 5 »FOADY 
LTR 595 
BNZ SETADR 
# AT THIS POINT, 
st TeFQADY 
SETADR MVC 52(4_7) »MINONE 
LM 14,12,12(13) 
BR 14 
CIFARPRI TM 22(7)9X*00° 
CICARPR1 TM 23(7)2X*00° 
HNO oc X"649 
LTORG 
DROP 15 


SERRE ELRSESEESE ERS AES ERS SESE SE REESE ERE SESE RES SS SESE RSET SES 
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tcc 


occcec 
ococec 
CCcOocR4 
occcee 
ccocec 
OCCCEE 
ococc2 
occccé 
OCCCCA 
OcCCCE 
occcc2 
occoreé 
OCOCCA 
Occcca 
OCCCEC 
OCCCE4 
occcee 


tcc 


occcee 
OCOCE8 
OCcCCEC 
OCCCFC 
CCCCF4 
OCCCFE 
OCOCFA 
OCCCFE 
oco1ce2 
OCCICE 
OCCICA 
CCO1CE 
ocol12 
0co112 
ecole 
ocelic 
occ12c 


tcc 


00012C 
oce12c 
0c0124 
ocoi2e 
ocoL12c 
OCO1L2E 
0C0132 
0C0136 
OCC13A 
OCOL3E 
0co142 
0C0146 
OCO14SA 
OCO1SA 
Oco1scC 
0co154 
oco1se 


SUBRCUTINE ACC POTENTIAL QUARRY TO PQ CHAIN 


CBJECT CCDE ACORL ACCR2 STMT SOURCE STATEMENT 


: 66 USING 4,15 

90EC DCCC occoc 67 SRAPQ STM 14,12.12(13) 
5870 2088 03788 68 L TeAPQTBA 
5880 2068 03768 69 L 8,SPQCH 
12868 70 LTR 8,8 
4720 FOLE OCOCcE ip BP ATLOPQ 
5070 2068 03768 72 ST 7, SPQCH 
507C 2C78 03778 73 ST 7,TPQCH 
47FO FQO2A OCOCA 74 B RETAPQ 
5890 2078 03778 75 ATLOPQ L 9,TPQCH 
5070 9034 00034 76 st 7952(0,9) 
5070 2C78 03778 77 ST 7, TPQCH 

78 RETAPQ EQU =» 
£203 7034 2C6C CC034 03760 79 MVC 52(4+7)»MINONE 
98EC CCOC occce 80 LM 14,12,12(13) 
C7FE 81 BR 14 

82 LTORG 

83 ornep 15 
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BE SHSSSSKSSSSS SHS SSSHHSKEKHHKHSHHKSKLEKKEHSFSRKSEHEKLESHAHTHEHEHREREESEEE 


SUBRCUTINE ACD CFVELCPFEAT FORECASTED TO NEVFO CHAIN 


CBJECT CCNE ATOR ACCR2 STMT SOURCE STATEMENT 


86 USING #,15 
90EC CCCC Occcc 87 SRADEVFO STM 14,1212(13) 
587C 2C8C 0378C a8 L T»ADEVTBA 
588C 2CéEC O37EC 89 L 8,SDEVFOCH 
1288 90 LTR 8,8 
472C FOLE oc1cé 91 RP ATLODEVF 
507C 2C06éC O376EC i ST 7+SOEVFOCH 
S070 207C 0377C 93 st 7, TOEVFOCH 
47TFO FC2A ocil2 94 B RETADEV 
§89c 207C O377C 95 ATLODEVF L 9,TOEVFOCH 
5070 9038 0C038 96 ST 7256(0%9) 
507C 207C 0377C oT st 7, TOEVFOCH 

98 RETADEV EQU * 
C203 7038 2CéC CCO38 03760 39 MVC 56(4,7),MINONE 
98EC CCOC occcoc 100 LM 14,12,12(13) 
CTFE 101 BR 14 

102 LTORG 

103 oROP 15 


104 SSH SSH SHHASSKHHHHHHHSFHAH HHH HKFKEHHHSTSHERHHSEEPHHHESEHREREES EH EHEe 


SUBRCUTINE ACC WORK IN PRCCESS TO WIP CHAIN 


OBJECT CCCE ACDR1L ACCR2 STKT SOURCE STATEMENT 


106 USING #,15 
90EC DOOC occoc 107 SRAWIP STM 14,12,12(13) 
587C 209C 03790 108 ([E Te AWIPTBA 
588C 2C7C 03770 109 L 8. SWIPCH 
1288 110 LTR 8,8 
4720 FOIE OOL3E 1Ll BP ATLOWIP 
5070 2C70 03770 112 ST 7,+SWIPCH 
5070 2C8C 03780 uL3 st 7, TWIPCH 
4TFC FO2A OO14A 114 8 RETAWIP 
5890 208C 03780 115 ATLOWIP L 9,TWIPCH 
5070 903C 0003C 116 st 7,60(0,9) 
5070 2080 03780 117 ST 7» TWIPCH 

118 RETAWIP €EQU * 
€2C3 703C 20€C C003C 03760 119 wVC 60(457)_,MINONE 
9B8EC DOCC Ocooc 120 LM 14,12512(13) 
O7FE 121 BR 14 

122 LTORG 

123 OROP 15 


FOLAUG68 5/30/69 
Lead 2667 WITH ADDL GA WW BE ADDED 
lean eee wit START A CHAIN 
Age weer Pmy G's IN CHAIN 
we YES, GETE ATLOP& 
1F NeT, START @ CHAIN 
" 
G6 Te RETAPA 
Reo SO HW CHAIN , 
SET ADDe LAST @ IM CHAIN Te NEY Q 
Stree Prot NEW A NH TPacH 
ReToRn 
PAGE 4 
FOLAUG68 5/30/69 
DOCUMENTATION SAME AS 
SRAPQ 
PAGE 5 
FOLAUG68 5/30/69 


DOCUMENTATION SAME AS 
SRAPQ 


124 SRSHASHSSHSSHKEHKHKSHSSHHSSKSSEHSSHSSSHKHEEHEESHHSKEKHES HH ESEHREHSEEeEeEEE 


tcc 


ooeise 
0co158 
oco1se 
OCO160 
0C0164 


000168 
Oco1éEC 


000170 
OCcO174 
0co178 
Oco17Cc 
OCOL7E 


0c0182 
oco1ee 
oco1ee 


000192 
0co198 


Oco1lgc 
OCO1A2 


OCO1LA6 
OCOLAA 
oco1ec 
Ocole2 
oco1ebe 
oco1ec 
ocoicc 


tcc 


occicc 
Oco1CcC 
oco1c4 
ocoicé 
oco1cc 
Oco1cc 
oco1c4s 
ocoice 
cco1oc 
OCCLEC 
OCCIlE4 
OCOLEE 
OCO1LEA 
OCO1FC 
CCCIFE 
OCOLFA 
oco2cc 
0C0204 
OCO2CA 
OCcO2CE 
Occe212 
occ21é@ 
Occ21A 
cco22c 
0C0224 
ccc22e 


LCC 


occe22e 
oco22e8 
cco22c 
occ23C 
0C0234 
0CG238 
0C023C 
0c624C 
000244 
0C0248 
occ24C 
O0024E 
0c0252 
o0co258 
OcOo25E 
OC02E2 
0c0268 
oco26C 
oco272 
Oc0276 
OCO27A 
oco2ec 
0C0282 
oco2e8 
00028C 
oco29c 


SUBROUTINE DELETE QUARRY FROM QUARRY CHAIN 
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OBJECT CODE ADDR1 ACDR2 STMT SOURCE STATEMENT : FOLAUG68 5/30/69 
126 USING #,15 
90EC DOOC ocooc 127 SRDO STM 14,12,12(13) 
5880 2064 03764 128 L 8,SQCH LOAD 8 WITH ADDR OF BEG Q CHAIN 
5580 2074 03774 129 ae 8, TOCH IS THERE ONLY ONE Q 
4780 FO2A 00182 +3130 BE ca IF SO, GO TO ONE Q 
131 # AT THIS POINT THERE ARE AT LEAST TWO QUARRIES 
5580 2094 03794 132 CL 8, AQTBD SEE IF FIRST Q IN CH TO BE DELETED 
4780 F03A 00192 +133 BE FO IF SO, GO TO FIRST Q 
134 # AT THIS POINT THERE ARE MORE THAN 1 Q*S & IT IS NOT LST Q TO BE DEL 
5890 8034 00034 135 KGQ L 9,52(0,8) LOAD 9 WITH ADDR OF NEXT Q 
5590 2094 03794 136 cL 9,AQTBD SEE IF Q WHOSE ADDR IS IN 8 IS TBD 
4780 F044 0019C 137 BE FIQ IF SO GO TO FIND O 
1889 138 LR 849 UPDATE 8 WITH ADOR OF NEXT O 
47FCO F018 00170 139 B KGQ BRANCH TO KEEP GOING 
140 # AT THIS POINT THERE WAS ONLY ONE Q AND IT IS TO BE DELETED 
£203 2064 206C 03764 03760 141 00 MVC SOCH,MINONE SET SOCH = -1 
D203 2074 2060 03774 03760 142 MVC  TOCHyMINONE SET TQCH = -1 
47FO FOSA 001B2 143 B SRETOQ GO TO RETURN ROUTINE 
144 # AT THIS POINT, FIRST Q IN CHAIN MUST BE DELETED 
D203 2064 8034 03764 0C034 145 FQ MVC = SQCH» 528) CHANGE SQCH TO NEW STARTING ADDR 
47FC FOSA 00182 146 8 SRETDQ GO TO RETURN ROUTINE 
147 *® AT THIS POINT WE HAVE FOUND Q TO BE DELETED. ITS ADOR IS IN REG 9 
148 « WHILE ADOR OF PRECEDING Q IS IN REG 8 
D503 9034 2060 C0034 03760 149 FIQ CLC 5214.9) yMINONE SEE IF IT LAST Q TO BE DELETED 
4770 F052 OO1AA 150 BNE  NOTLQ IF NOT, GO TO NOT LAST Q 
151 © AT THIS POINT IT IS THE LAST Q TO BE DELETED 
5080 2074 03774 152 ST 8, TQCH STORE ADDR OF NEW LAST IN TQCH 
0203 8034 9034 C0034 00034 153 NOTLQ MVC = 552448), 5219) CHANGE POINTER ADDR IN PRECEDING Q 
1889 154 LR 849 LOAD ADDR TO BE DELETED IN 8 
£203 8034 206C CC034 03760 155 SRETDQ MVC 52(4,8),MINONE MAKE POINTER IN Q TO BE DELETED -1 
98EC DCCC Ocooc 156 LM 14,12,12(13) 
O7TFE 157 BR 14 
158 LTORG 
159 prop 15 
160 SSSSHSSHSHFAGSSSSSSSSHFHHHSSHSHFEHSHKKAFESHFSFHSSESSHSCHLSEKASESSHEGHELFEReHLeESS 
SUBRCUTINE CELETE POTENTIAL QUARRY FROM PQ CHAIN PAGE 7 
CBJECT CCDE ADDR1 ADDR2 STMT SOURCE STATEMENT FOLAUG68 5/30/69 
162 USING #,15 
90EC DCCC OCOOC 163 SRDPQ STM = 14,12,12(13) 
5880 2C68 03768 164 L 8, SPQCH 
558C 2078 03778 165 cL 8, TPOCH 
478C FC2A OO1EA 166 BE opa 
5680 2098 03798 167 cL 8, APQTBD 
4780 FO3A OO1FA 168 BE FPQ 
5890 8034 0C034 169 KGPO L 9521098) 
559C 2098 03798 170 CL 9, APQTBD 
4780 F044 00204 171 BE FIPQ DOCUMENTATION SAME AS 
1889 172 LR 8,9 SRDQ 
47FC F018 ocios 173 B KGPQ 
D203 2068 2CEC C3768 03760 174 OPQ MVC SPQCH,MINONE 
C203 2078 2CEé0 C3778 03760 +175 MVC = TPOCH, MINONE 
47FC FC5SA 0021A 176 B SRETOPQ 
D2C3 2C68 PC34 03768 0C034 177 FPQ MVC = SPOCHy 5218) 
47FO FOSA 0021A 178 B SRETDPQ 
D5C3 9034 2CE0 C0034 03760 179 FIPQ CLC 52(4.9),MINONE 
4770 FC52 00212 180 BNE  NOTLPO 
508C 2C7e 03778 181 st 8, TPOCH 
C2C3 8C34 SC34 CCO34 0CC34 182 NOTLPQ MVC 52(4,8)%52(9) 
1889 183 LR 8,9 
0203 8034 206C C0024 03760 184 SRETOPQ MVC 52(498)sMINONE 
98EC OCCC ocooc 185 UM 14,12,12(13) 
CTEE 186 RQ 14 
187 LTGRG 
188 NROP 15 
189 SSHSSSSHSHFSEKEFSHKHSSHFSSESCSESHSEKSSESSHSSSSHSHKSSHKHKHFSKSHKSHHRESSSHSKEGHREHGAHEEEE 
SUBRCUTINE CELETE CEVELOPMENT FORECASTED FROM DEVFO CH PAGE 8 
CBJECT CCDE ADDR1 ACCR2 STMT SOURCE STATEMENT FOLAUG68 5/30/69 
191 USING #,15 
90EC oCCce OCCOC 192 SRDDEVFO STM  14,12,12(13) 
588C 2CeEC 0376C 8193 it 8» SDEVFOCH 
55aC 2C7C 0377C 86194 cL 8,TDEVFOCH 
4780 FO2A 00252 ~=195 BE ODEVFO 
5580 209C 0379C 86196 CL 8,ADEVTBD 
4780 FC3A 00262 197 BE FOEVFO 
5890 8038 00038 198 KGDEVFO L 9,56(0.8) 
5590 2C9C 0379C 199 CL 9, ADEVTBD 
478C F044 0026C 200 RE FIDEVFO 
1889 201 LR 819 DOCUMENTATION SAME AS 
47FO F018 00240 202 B KGDEVFO SRDO 
D203 206C 206C 0376C 03760 203 ODEVFO MVC SDEVFOCHsMINONE 
0203 207C 2C6C 0377C 03760 204 MVC  TDEVFOCH,MINONE 
47FO FCSA 00282 205 B SRETDDEV 
0203 20EC 8038 0376C 00038 206 FDEVFO MVC  SDEVFOCH,56(8) 
47FO FOSA 00282 #8207 8 SRETDDEV 
0503 9C38 2060 C0038 03760 208 FIDEVFO CLC 56(499),MINONE 
4770 F052 0027A 209 BNE NOTLDEV 
5080 207C 0377C = 210 st 8, TDEVFOCH 
D203 8038 9038 C0038 0C038 211 NOTLDEV MVC 56(4,8),56(9) 
1889 212 LR 859 
0203 8038 206C 00038 03760 213 SRETDDEV MVC 56(4,8)_,MINONE 
98BC DCCC Ococc 214 LM 14512912(13) 
C7FE 215 BR 14 
216 LTORG 
217 DROP 15 


218 


SHKKHFHFSKSLSKRHSSHSSHKHKHKHK SS HSE SKHSKSHSKKSEKHFHHHFHHHKEFEHKEHHHSHABAHSESBeeS 


tcc 


oco29C 
oco2z9c 
000294 
oco29e 
occ29Cc 
OCcO2AC 
OCO2A4 
occ2Aae 
OCO2AC 
oco28Cc 
OC0284 
oco2eé 
oco2BA 
oco2cc 
oco2ceé 
OcOo2CA 
oco20C 
000204 
OCO20A 
OCO2CE 
OCO2E2 
océeé2es 
OCO2EA 
OCO2FC 
OCO2F4 
Oco2F8 


tcc 


OCO2F8 
Oco2Fe 
OCO2FC 
OCO3CC 
oCcc3c4 
oco3ce 
OCO3CA 
occ3cc 
oco31Cc 
OCC314 
Oco31€é 
oco31e 
oco31c 
0C032C 
0C0322 
QC0324 
occ32é 
0cCc32C 
0C032E 
oco33c 
0C0334 
000338 
0cc33C 
occ34c 
0C0342 
000346 
OCC34A 
OCcC34C 
GCO34E 
0C0352 
0C0356 
6c0358 
0C035C 
occ35€é 
OCO36C 
OCO362 
0C0366é 
0C0368 
O003éA 
O0036E 
oco372 
000376 
OCC37A 
OCC3TE 


eco382 
G0038E 
QC038A 
OCO38E 
000392 
0C0396 
@CO39A 
OCO39E 
OCO3n2 
OCO3AE 
ooo3Ae 
OCO3AC 
OCO3B6C 
OCO3B4 
0co36¢@ 
00G3@C 
Qco3cc 
OCO3C4 
oce3ces 
oco3cé 


SUBROUTINE DELETE WORK IN PROCESS FROM WIP CHAIN 


OBJECT CCDE 


ococ 
2c7c 
2080 
FC2A 
2CAC 
FO3A 
803C 
2cac 
FC44 


SOEC 
5880 
s58C 
4780 
558C 
4780 
5890 
559C 
4780 
1889 
47FC 
0203 
0203 
4TFC 
0203 
4TFC 
C503 
4770 
508C 
0203 
1889 
C203 
98EC 
CTFE 


FOl8 
2070 
2080 
FOSA 
2c70 
FCSA 
903C 
F052 
2céec 
803C 


2060 
2060 


8C3C 


2C60 


903C 


803C 
ococ 


2060 


SUBROUTINE FCR 


OBJECT CODE 


ococ 
FOPRC 
FCB4 
FCB8 


SOEC 
702C 
704C 
706C 
1844 
1855 
4840 
485C 
1654 
1055 
505C 
9646 
1844 
1855 
4840 
4850 
1854 
1055 
5050 
9646 
7820 
7€20 
3€22 
7840 
7C40 
3044 
3A42 
4780 
7040 
3424 
7840 
3042 
3A42 
3444 
704C 
3842 
3044 
TB4C 
4700 
7820 
47FO 
7860 
7c60 


2cBc 
20B4 


Fcce 
FOCB 


20B2 
2086 


FOCC 
FCCC 
FOCc8 
225C 


FCCC 
2258 


F092 
Focc 


FOCO 


FOBC 


FOC4 
FC82 
FOBC 
F060 
FOBC 
2260 


7060 
4TFO 
786C 
TO6E 
7060 
782C€ 
7840 
7860 
98ec 
O7FE 


2CA4 
FO9E 
2258 
Fooc 
2084 
FOBO 
FOB4 
FobS 
ocOoc 


3FLSTAEL 


412CCCCO 


ADDR1 ADODR2 


occoc 
03770 
03780 
002BA 
037A0 
O02CA 
0c03C 
037A0 
00204 


002A8 
03760 
03760 
OO2EA 
oco3c 
OO2EA 
03760 
002E2 
03780 
0003C 


C3770 
03780 


03770 


0c03C 


c003c 
CCO3C 03760 
Ocooc 


OETERPINING 


ADORI ACDR2 


ocooc 
003A8 
OO3AC 
003860 


03780 
03784 


003CO 
003co 


037B2 
03786 


003C4 
003C4 

003C0 

0395C 


003C4 
03958 


0036A 
00388 


06368 


00384 


0036C 
OO37A 
003B4 
00358 
00384 
03960 


O37A4 
00396 
03958 
003C8 
O37A4 
G03A8 
003AC 
003860 
e6cooc 


ST¥T 


220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 


SOURCE STATEMENT 
USING #,15 
SROWIP STM 14,12512(13) 
L 8,SWIPCH 
cL 8,TWIPCH 
BE Ow1Pe 
CL 8,AWIPTBD 
BE FWIP 
KGWIP t 9460108) 
cL 9,AWIPTBD 
BE FIWIP 
LR 8,9 
8 KGWIP 
OwmPp MVC SWIPCH,MINONE 
MvC TWIPCH,MINONE 
8 SRETOWIP 
FwrPe MVC SWIPCH,60(8) 
8 SRETOWIP 
FIWIP CLC 60(4,9),MINONE 
BNE NOTLWIP 
st 8,TWIPCH 
NOTLWIP MVC 60(4,8),60(9) 
LR 8.9 
SRETOWIP MVC 60(4,8) »MINONE 
LM 1491291213) 
BR 14 
LTORG 
OROP 15 


FOLAUG68 


DOCUMENTATION SAME AS 
SRDQ 


SSSHSSRHFSSHSHSSSSSKHSHKSSHESHSSEEKEHFHHFSKKSHKHKEKHEFHSSEKSCHSPEHEEHRTERESHEAEES 


CISTANCES BETWEEN 2 POINTS 


STMT 


249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
27¥ 
272 
273 
274 
213 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
2886 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 


SOURCE STATEMENT 
e 
* 
e 
e 
USING #,15 
SRDIST STM 14,12,12(13) 
STE 2,FP2 
STE 4eFP4 
STE 65FP6 
SR 44 
SR 5,5 
LH 4,POINTL 
LH 5ePOINT2 
SR 564 
LPR 5.5 
st 5,VOISTFP 
or VDISTFP,X*46°* 
SR 494 
SR 595 
LH 4,POINT1+2 
tH 5,POINT2¢2 
SR 5.4 
LPR 5,5 
st 5 ,HDISTFP 
oO! HDISTFP,X*46° 
te 2eVDISTFP 
ME 2, VGCONF 
MER 292 
LE 4 ,HDISTFP 
HE 4,HGCONF 
MER 454 
AER 492 
BZ SAMEG 
STE 4_>NUMBX 
HER 204 
sqrioop tLe 4,NUMBX 
OER 42 
AER 452 
HER 44 
STE 4 NEWX 
SER 452 
LPER 494 
SE 4,D01FFX 
BNP OISTDET 
LE 2+ NEWX 
8 SQTLOOP 
OISTOET CLE 6,NEWX 
ME 6ySLCONF 
2 
STE 6,DISTX 
8 RETDIST 
SAMEG LE 6,HGCONF 
DE 6,=E*2* 
STE 6,D0I1STX 
RETDIST LE 2,FP2 
Le 4a FP4 
LE 6,FP6 
LM 14,12,12(13) 
BR 14 
FP2 os F 
FP4 OSs F 
FP6 os F 
NEWX os F 
NUMBX os E 
DIFFX oc E*.005°* 
VDISTFP ODS FE 
HDISTFP ODS F 
LTORG 
=E* 2" 
oroPp 15 


FOLAUG68 


PARAMETERS ARE POINTL & POINT2 WHICH ARE THE ROWS & COLUMNS OF THE 
TWO POINTS BETWEEN WHICH THE DISTANCE IS TO BE DETERMINED 

AND DISTX WHICH IS THE CALCULATED DISTANCE BETWEEN THE POINTS 
CORRECTED BY THE CROW FLY-ACTUAL FACTOR (IN FLOATING POINT) 


SAVE FLT PT REGISTERS 
oo 


CLEAR REG 4 

CLEAR REG 5 

LOAD ROW OF POINT 1 IN REG 4 
LOAD ROW OF POINT 2 IN REG 5S 
SUBTRACT & FROM 5 AND PLACE IN 5 
TAKE ABSOLUTE VALUE OF OIFFERENCE 


STORE 5 IN VERTICAL DISTANCE 
CONVERT TO FLOATING POINT 
CLEAR 4 

CLEAR 5 


LOAD COL POINT 1 IN REG 4 
LOAD COL POINT 2 IN REG 5 


LOAD FP REG 2 WITH VERT OIST 
MULT BY VERT GRID CONVERS FACTOR 
SQUARE CONVERTED DISTANCE 

LOAD FP REG 4 WITH HORIZ DIST 
MULT BY HORIZ GRID CONF 

SQUARE CONVERTED DISTANCE 

FP REG 4 CONTAINS A#e2 +Be#2 


STORE ORIGINAL NO IN NUMBX 

OIVIDE NO BY 2 FOR FIRST APPROX 
LOAD NUMBER INTO REG & 

OIVIDE NO BY OLDX 

ADD OLDX TO NO/OLDX 
1/2(O0LOX*+NO/OLDX} 

STORE NEW APPROX IN NEWX 

FIND DELTA 

MAKE DELTA POSITIVE 

CHECK MAGNITUDE OF DELTA 

IF NOT +, GO TO OISTANCE DETERMINED 
SET NEWX = OLDX AND LOAD IN 2 

GO TO LOOP 

LOAD DISTANCE INTO 6 

MULT ACTUAL STRAIGHT LINE DISTANCE 
BY ST LINE CONVERSION FACTOR 

LOAD DISTANCE INTO DISTX 


LOAD HORZ GRID CONF INTO REG 6 
OIVIDE BY 2 

STORE OISTANCE IN DISTX 
RESTORE FLT PT REGISTERS 

eo 


SEKSSSSSHHHHHSSHSSFKSKHHESHSKLHHSHHLEHHHFHOHHSSHESHESEKRAHKEESEEKHSESEOEEE 
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toc 


occ3cc 
O0CcO3CC 
Oco3cC 
oco3cc 
0C0304 
oco30e 
0ce30C 
OCO3EC 
OCO3E4 
O003E8 
OCO3EE 
OCO3F2 
OCC3FE 
OCC3FA 
OCO3FC 
OCO3FE 
occ4c2 
CcO4CE 
OCO4CA 
OCO4SCE 
Oc0C412 
Occ4leé 
OCO41A 
occ4ic 
OCc042C 
OCC424 
oce4s2e 
occ42e 
occ42Cc 
0C043C 


tcc 


OCC434 
0C0434 
0c0438 
0C043C 
Oc044C 
OCC444 
0c0448 
OCC44C 
OcC4sC 


0c0454 
OCC45A 
OCO45E 
OCC4E4 
occ4éeé 
OCC4EE 
oco4T2 
occ47e 
occ47eé 
OCO47C 
OCC47E 
ocoséec 
OCC484 
oco4es 
Oc048C 
oco4sc 


SUBROUTINE DETERMINE TRANSPORTATION COST 


OBJECT CODE 


SOEC 
702C 
782C 
TA20 
TE2C 
7020€ 
9400 
c2c0 
953 
470C 
923F 
1877 
1Béé 
437C 
5céc 
4867 
4A6C 
5060 
782C 
98EC 
CTFE 


DoOC 
FC5O 
20C4 
FOSC 
F060 
FC54 
FC54 
FO58 
Fo5e8 
FO2E 
FC58 


FC58 
FCE4 
2104 
2264 
20C8 
FCS5C 
occc 


408€CCCO 
46CCCCCC 
eccccoo2 


AOORL 


C0420 


FOS7 00424 


C0424 


C0424 


ADOR2 


ooo0oc 
oc4ic 
037C4% 
00428 
0042C 
00420 


00423 


OO3FA 


00424 
00430 
03804 
03964 
037C8& 
O041C 
ocooc 


ST#T 


321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
agS 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 


SUBROUTINE ALLOWANCE OR EXISTING 


CBJECT 


SOEC 
584C 
9505 
4740 
S5CA 
4740 
S5CF 
474C 


0203 
4TFC 
0203 
4TFC 
0203 
4TFC 
0203 


96EC 
CTFE 
cocce 


occc 
2coc 
402A 
FC2A 
4C2A 
FC34 
402A 
FC3E 


20CC 
F044 
20CC 
FC44 
2CCC 
F044 
20CC 


occoc 


ccocccco3 
CCCCcccc4 
cocccccé 
cceccccoc? 


ccoeE 


FC58 


FO4C 


FCS5O 


FC54 


ACORL 


CCO2A 
COO2A 


COO2A 


C37CC 
O37CC 
037CC 


C37CC 


ACOR? 


ocooc 
03700 


Q045E 
00468 
00472 


0048C 
00478 
00480 
00478 
00484 
00478 
00488 


ocooc 


STMT 


358 
359 
360 


FOLAUG68 


THIS SUBROUTINE DETERMINES TRANSPORTATION COST (IN PENNIES) 


* 
® 
# IN PARAMETER = TRANSO( TRANSPORT DISTANCE IN FLOATING POINT) 
# 


SOURCE STATEMENT 
PER TON OF MATERIAL 
OUT PARAMETER = FIXPTCST = 
USING #,15 
SRTRCST EQU * 
STM 14912,12(13) 
STE 2eFLT2 
LE 2+ TRANSD 
AE 29=E*.5° 
AU 2=X*46000000" 
STE 2,O01STTBT 
NI DOISTTBT,X*00° 
MVC DINDEX(1) »DOISTTBT+3 
cL DINDEX,63 
BNH OTR 
MMVI DINDEX, 63 
DTR SR ToT 
SR 66 
Ic 7,D0INDEX 
Ua] 69=F*2* 
LH 6,TRCOST(7) 
AH 6,COSTINT 
ST 6eFIXPTCST 
LE 2eFLT2 
LM 14,12,12(13) 
BR 14 
FLT2 os F 
OISTTBT OS F 
OINDEX OS x 
LTORG 
=E*.5* 
=X*46000000° 
=Fe2e 
oroP 15 


TRANSPORTATION COST / TON (FIXED POINT) 


STORE FLT PT REGISTERS 

LOAD FLTPTR2 WITH DISTANCE 

ADD .5 FOR ROUNDING 

RIGHT JUSTIFY DISTANCE 

STORE IN DISTANCE TO BE TRANSLATED 
CONVERT TO FIXED POINT 


MOVE LOW ORDER BYTE TO DINDEX 

IS OISTANCE GREATER THAN 63 MILES 
IF NOT, GO TO DTR 

OTHERWISE SET OISTANCE = 63 MILES 
CLEAR REG7 

CLEAR REG6 


INSERT MILAGE INTO REG7 

MULT BY 2 TO FIND CORRECT HALFWORD 
MOVE TRANSPORTATION COST TO REG6 
ADD INTERCEPT OPTION 

ANO STORE IN FIXPTCST 

RESTORE FLT PT REGISTERS 


SSHSSSASLASHHSSHSFSSKHHKSHHSSFSSSFHSHCKSKHHKEFSKHSHFSCHEKRHFHEGESEKLHFSSHFAKH SSA E 


PROCESSING PLANT 


FOLAUG68 


THIS SUBROUTINE DETERMINES THE ALLOWANCE ON THE COST OF A NEW 
PROCESSING PLANT BECAUSE OF MOVING THE EXISTING PROCESSING PLANT 


SOURCE STATEMENT 
* 
e 
* TO THE NEW LOCATION 
a INPUT PARAMETER —- APPTBM 
e OUTPUT PARAMETER — AOEPP 
® 
2 
* 
USING #,15 
SRAGEPP STM 14,12512(13) 
L 4, APPTBM 
cur 42(14)45 
BL LTSYR 
cui 4214),10 
BL LTLOVR 
cul 42(4)515 
BL LT15YR 
® AT THIS POINT, 
MYC ADEPP (4) ,AOGEL5PP 
B ALLFIG 
LTSYR MVC AOEPP(4),AOLTSPP 
8 ALLFIG 
LTLOYR MVC AQEPP(4),A0LTLOPP 
B ALLFIG 
LTL5YR MVC AOEPP(4),AOLTI5PP 
ALLFIG EQU * 
LM 14,12,12(13) 
BR 14 
AOLTSPP OC FSS* 
AOLTLOPP DC [lt 
AOLTLSPP OC Es6y 
AOGELSPP OC ai 
LTORG 
ORaP 15 


(ADDR PP TO BE MOVED) 


(ALLOWANCE ON EXISTING PROC PLANT) 


(AOGEPP ITS A NUMBER WHICH WHEN 
MULTIPLIED BY THE COST OF A NEW PP 
AND DIVIDED BY 10 GIVES THE NEW COST 


LOAD REG4 WITH ADDR PP TO BE MOVED 


IS REMAINING LIFE .LT. 5 YEARS 
IF YES, GO TO LT5YR 
IS REMAINING LIFE .LT. 10 YEARS 
IF YES, GO TO LTLOYR 
TS REMAINING LIFE .LT. 15 YEARS 
IF YES, GO TO LTL5YR 


REMAINING LIFE IS GREATER THAN OR = TO 15 YEARS 


MOVE ALLOWANCE TO ALL ON EXIST PP 
GO TO ALLOWANCE FIGURED 
ee 


(ALLOWANCE FIGURED) 


30( SAVINGS 
40( SAVINGS 
60( SAVINGS 
7T0( SAVINGS 


SSFHHFHSSHHAGHKLRHSSSHHSHKEHKSSCHEHHHHSSFSHKHFEHEHESHFHHGHSHESSERSESH FR HHRBSE 
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Lcc 


0c649C 
0cd49Cc 
occo4gc 
0C0494 
oco49e 
aco4sgc 
OCO4A0 
OCC4A4 
OCC4AB 
OCO4AC 
Oce4Bc 
OCcO4R4 
occ4ee 
OCO4EC 
Occ4cc 
OCC4C4 
oce4cs 
OCO4CC 
OCce4eC 
OCcc4c4 
OCO4CA 
OCO4CC 
OCO4EC 
OCO4E2 
OCOSEE 
OcC4EE 
OCC4EC 
OCC4SEE 
OCO4SF2 
OCO4F4S 
Oco4Fe 
OCO4FA 
OCO4SFE 
occscc 
0cosc4 


tcc 


Oco5Cé 
Ocosce 
Occ5CE 
OCOSCA 
OCCS5CE 
ocosl2 
Occ51é 
OCC51A 
OCcQaSIE 
occs22 
ocos2é 
OCO52A 
Occs2eE 
0CC532 
OCC52€E 
OCC53A 
OCC53E 
0cos4C 
0C0544 
O0C0546 
OCCS4A 
OcO054C 
OCO55C 
0C0552 
occs5é6 
ocosse 
ocossc 
OCOSSE 
OCOS5E2 


SET BIT CONFIGURATIGN ZCNING LAW 


OBJECT CCDE 


S6FO 
95FC 
4780 
OS5Fl 
4780 
95F2 
478C 
95F3 
4T8C 
95F4 
4780 
9S5F5 
4780 
OSFE 
4780 
S5E7 
4780 
0200 
CTFE 
92C0 
CTFE 
9203 
QTFE 
9283 
CTFE 
9201 
OTFE 
9281 
CTFE 
9202 
CTFE 
9282 
C7FE 


23F8 
23F8 
F044 
23F8 
FO4C 
23F8 
FO52 
23F8 
F058 
23F8 
FOSE 
23F8 
F064 
238 
FO6A 
23F8 
FO7C 
23F9 


23F9 
23F9 
23f9 
23F9 
23F9 
23F9 


23F9 


2268 


ADDRI 


C3AFS 
O3AF8 


O3AFS 
O3AF8 
C3AF8 
C3AFS 
C3AF8 
C3AF8 
O3AFB 
O3AF9 
C3AF9 
O3AFS 
C3AF9 
C3AF9 
O3AF9 
C3AF9 


O3AF9 


ACOR2 


00404 
0040C 
004E2 
004E8 
OO04EE 
004F4 
OO4FA 


00500 
03968 


STMT 


394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413. 
414 
415 
416 
411 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 


SOURCE STATEMENT 


SETZL 


ZLNZ 
ZLNQNPP 
ZLQPP 
ZLQPPS 
ZLNQPP 
ZLNOPPS 
ZLQNPP 


ZLONPPS 


EQU * 

USING #,15 

Ol ZLAW,X*FO® 
cLti ZLAWsX"FO* 
BE ZLUNZ 

cLI ZLAWs X*FL® 
BE ZLNQNPP 

cLI ZLAW,X*F2* 
BE ZLOQPP 

CLI ZLAWsX*F3° 
BE ZLOPPS 

CLI ZLAW,X*F4? 
BE ZLNQPP 

cLI ZLAW,X°FS5® 
BE ZLNOQPPS 

cul ZLAW,X*F6° 
BE ZLONPP 

cLI ZLAW,X*FT® 
BE ZLONPPS 

MVvC ZLAWD(1),ZLNOZONE 
BR 14 

MVI ZLAWD,X*00* 
BR 14 

MVI ZLAWD,X*"03°* 
BR 14 

MVE ZLAWD,X*83° 
BR 14 

MVI ZLAWD,X*O1® 
BR 14 

MI ZLAWD,X*81° 
BR 14 

MVI ZLAWD,X*02° 
BR 14 

MVI ZLAWD,X*82* 
BR 14 

OROP 15 


FOLAUG68 


(SET ZONING LAW BIT CONFIGURATION) 


MAKE A BLANK A TRUE O 


1s 
IF 
rs 
IF 
Is 
IF 
1s 
IF 
Is 
IF 
Is 
IF 
1s 
IF 


ZONING LAW O 
Or 
ZONING LAW L 
1 SET MASK = 
ZONING LAW 2 
2, SET MASK 

ZONING LAW 3 
3, SET MASK 

ZONING LAW 4 
4, SET MASK 

ZONING LAW 5 
5, SET MASK 

ZONING LAW 6 
6, SET MASK 

IS ZONING LAW 7 
IF 7, SET MASK 

SET ZONING LAW 

RETURN 

SET ZONING LAW 

RETURN 

SET ZONING 
RETURN 

SET ZONING 
RETURN 

SET ZONING 
RETURN 

SET ZONING 
RETURN 

SET ZONING 
RETURN 

SET ZONING LAW 
RETURN 


LAW 
LAW 
LAW 
LAW 


LAW 


= 
= 


+, 


Qs 


NO 
Q, 
Qe 


NO Q, 


pp 
PP 
Qs 
Q, 
NO 


NO 


GO TO SET MASK = NO ZONING 


NO PP 


{SPECIAL) 

pp 

PP (SPECIAL) 
pp 


PP (SPECIAL) 


ZONING 


Qy 
PP 
pp 
Q, 
Q, 
NO 


NO 


NO PP 


SPECTAL 


Pp 


PP SPECIAL 


PP 


PP SPECIAL 


SSFCSKSFSHKEHSSHSHHSKHHKFEHKHSHSSSHHSHSE LHS HHSSEFHSSHSGHEHKHHSESHHEGEHESCRLAS 


SET BIT CONFIGURATION FCR MINERAL QUALITY 


CBJECT CCOE 


S6FC 
95Fl 
478C 
95F2 
4780 
95F3 
478C 
95SF4 
478C 
S5FS 
478C 
95F6 
478C 
92CC 
OTFE 
S2FF 
CTFE 
S2FE 
C7FE 
S2FC 
CTFE 
92F8 
C7FE 
92FO 
O7FE 
S92EC 
OTFE 


23F4 
23F4 
FC3A 
23F4 
FC4C 
23F4 
F046 
23F4 
FO4C 
23F4 
F052 
23F4 
Fo5e@ 
23F5 


23F5 
23F5 
23FS 
23F5 
23F5 


23F5 


ACORL 


C3AF4 
C3AF4 


C3AF4 


C3AF4 


C3AF4 


C3AF4S 


C3AF4 


C3AF5 


C3AFS5 


C3AFS 


C3AF5 


O3AF5 


C3AF5S 


O3AF5 


ACCR2 


00540 


00546 


0054C 


00552 


00558 


OO55E 


ST¥T 


432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
44% 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 


SOURCE STATEMENT 


SETQUAL 


QUALCAA 
QUALCAB 
QUALCAC 
QUALCAD 
QUALCAT3 


QUALCAI4 


EQU * 

USING #915 

cr QCA,X*FO® 

CEI QCAyX*FL® 

BE QUALCAA 

CLI QCA,X*F2° 

BE QUALCAB 

cut QCA,X*F3° 

BE QUALCAC 

cLt OCA,X*F4? 

BE QUALCAD 

cul QCA,X*F5* 

BE QUALCATI3 

Cet QCA,X*F6° 

BE QUALCAI4 

wv QCAD,B*11000000° 
BR 14 

wVE QCAD,B* Lili’ 
BR 14 

MVI QCAD,B*LILL1110° 
BR 14 

MV QCAD,B"11L111100° 
BR 14 

MVI QCAD,B*11111000° 
BR 14 

MVI QCAD,B*°11110000° 
BR 14 

MVE QCAD,B°11100000° 
BR 14 

OROP 15 


(SET QUALITY) 


MAKE BLANK A 0 
IS QUALITY A 


IS QUALITY B 
IS QUALITY C 


IS QUALITY D 


IS QUALITY [3 
IS QUALITY 14 
SET QUALITY = 
SET QUALITY =A 
SET QUALITY = B 
SET QUALITY = C 
SET QUALITY = D 
SET QUALITY = I 
SET QUALITY = I 


4 


FOLAUG68 


RUN OF BANK 


SAHKSSGCAAHHHEAHHETHHFSKHKHSHHHSHKHEHHFHSHHHFCHHKHSSSSSHCHESHSSHET EDRF EeEEE eS 


PAGE 


PAGE 


13 


5/30/69 


14 


5/30/69 


SUBROUTINE WEIGHTED GECMETRIC CENTER PAGE 15 


LCC OBJECT CODE ADDR1 ADOR2 ST#T SOURCE STATEMENT 5 FOLAUG68 5/30/69 
464 ® THES SUBROUTINE DETERMINES THE GEOMETRIC CENTER OF PROCESSED SEG, 
465 #® UNPROCESSED SEG, AND CRUSHED STONE (ALL WEIGHTED BY MATERIAL USAGE) 
466 * OF FORECASTED DEVELOPMENTS SCHEDULED TO START WITHIN THE PLANNING 
467 # HORIZON 
468 ® OUT PARAPETERS ARE WGCPSG (WEIGHTED GEOMETRIC CENTER PROCESSED SEG) 
469 * WGCUPSG (WEIGHTED GEOMETRIC CENTER UNPROCESSED SEG), AND 
470 « WGCCS (WEIGHTED GEOMETRIC CENTER CRUSHED STONE) 
471 @ BYTES L&2=ROW, BYTES 3&4=COLUMN 
occ5é4 472 USING #,3 
0C0564 473 SRWGC EQU * (SUBROUTINE WGC) 
0C0564 90EC DCOC goooc 474 STN 14,12912(13) 
OccSée 163F 475 LR 3,15 
OCO5S6A 5BEC 3274 00708 476 L 14, ASAVEWGC 
OCOSéE S5SOED CCC8 00008 477 st 14,8(13) 
OCG572 SOOE CC04 00c04 478 st 1354(14) 
OCC576 180E 419 LR 13,14 
OC0578 5BEO 2Cé6C 0376C 480 L 14, SOEVFOCH LOAD REGIS WITH START DEVFO CHAIN 
OCOS7C 12EE 481 LTR 14,14 WERE THERE ANY DEVFO'S 
OCOSTE 4740 316A OO6CE 482 AM WGCRET IF NOT, GO TO WGCRET 
483 «© AT THIS POINT THERE WAS AT LEAST 1 DEVFO 
ocose2 1B8e8 484 SR 8,8 CLEAR REGS 
occse4 1899 485 SR 999 CLEAR REGO 
OCO56é IBAA 486 SR 10,10 CLEAR REGLO 
ocosee SCAC 3208 0076C 487 st 10,RWPSG SET RWPSG = 0 
ocos58ec SOAC 32CC 00770 488 st 10,CWPSG SET CwPSG = 0 
Occs9C SOAC 321C OC774 489 sT 10,WPSG SET WPSG = 0 
0C0594 5OAC 3214 00778 490 ST 10,RWUPSG SET RWUPSG = 0 
ocos9e@ SOAC 3218 oo77Cc 491 st 10,CWUPSG SET CWUPSG = 0 
OcOsSC SOAC 321C 00780 492 ST 10,WUPSG SET WUPSG = 0 
OCC5AC 5OAO 322C 0C784 493 ST 10,RWCS SET RWCS = 0 
OCOS5A4 SOAC 3224 oo7eVA 494 ST 10,CWCS SET CwWCS = 0 
OCES5Ae SOCAC 3228 OOo78C 495 ST 10,WCS SET wCOS = 0 
OCOSAC 12EE 496 WGCLOOP LTR 14414 ARE WE DONE WITH ALL DEVFO'S 
OCOSAE 474C 3104 00668 497 BM FIGWGC IF VES, GO TO FIGWGC 
6C0582 1BCC 498 SR 12,12 CLEAR REG1L2 
OCC5Ee4 43C0 ECIA OCOLA 499 Ic 1292610914) INSERT YEAR DEVFO WILL START IN 12 
occseée 1868 500 SR Li,ll CLEAR REGI1L 
OCCS5BA 43BC 226A 0396A 501 1c 11, PLANHORZ LOAD PLANNING HORIZON INTO REGLL 
OCCSPE 18CF 502 SR 12,11 SUBTRACT PLANNING HORIZON 
OCOSCC 43BC 2272 03972 503 1c lle YEAR INSERT YEAR INTO REGLL 
Ocosc4 16CB 504 SR 12,11 SUBTRACT PRESENT YEAR 
OCOSCE 472C 30FC 00660 505 BP UPWGC IF POSITIVE, DEVFO START IS BEYOND 
506 @ PLANNING HORIZON AND WILL NOT FIGURE 
507 « INTO WGC 
OCOSCA 5880 32C8 0076C 508 L 8,RWPSG LOAD REGS WITH ACCUMULATED Rew 
OCOSCE 589C 32CC 00770 509 L 9,CWPSG LOAD REGS WITH ACCUMULATED Cew 
OCOSC2 SBAC 321C 00774 510 L 10,WPSG LOAD REGLO WITH ACCUMULATED wT 
OCCS5SCE 1844 511 SR 494 CLEAR REG4 
Ocosce 18EE - 512 SR 656 CLEAR REG6 
OCCSCA 485C ECCC occco 513 LH 52010914) LOAD ROW INTO REGS 
OCCSCE 487C ECC2 oco02 514 LH 7e2(0014) LOAD COLUMN INTO REGT 
OCOSE2 S8CC EDIC oco1c 515 L 12,28(0,14) LOAD PROCESSED SEG INTO REGI2 
OCOS5EE 1C4C 516 MR 4,12 MULTIPLY ROW #* WEIGHT 
OcOosEe 1C6C 517 MR 6012 MULTIPLY COL # WEIGHT 
OCCSEA 1A85 518 AR 855 ACCUMULATE ROW ® WEIGHT IN REG8 
OCOSEC 1A97 519 AR 957 ACCUMULATE COL #* WT IN REGO 
CCCSEE LAAC 520 AR 10512 ACCUMULATE WEIGHT IN REG1O 
OCOSFC 508C 3208 o0o76C 521 ST 8,RWPSG STORE IN ROW @® WT PROC SEG 
OCOS5F4 S5SC9C 32CC 00770 522 ST 9eCwPSG STORE IN COL * WT PROC SEG 
OCOSFe SOAO 3210 00774 523 st 10,WPSG STORE IN WT PROC SEG 
OCOS5SFC 5880 3214 oc7?78 524 L 8»RWUPSG LOAD REGS WITH S(ROW*#WT) 
Ocdéce 589C 3218 oo77C 525 L 9,CWUPSG LOAD REGS WITH S(COL#WT) 
OCCEC4S SBAC 321C 00780 526 t 10, WUPSG LOAD REGLO WITH S(WEIGHT) 
OCCECE 1844 527 SR 404 CLEAR REGS 
OCO6CA 1866 528 SR 696 CLEAR REG6 
OCOECC 485C ECCO ocooo 529 LH 5,0(0,14) LOAD ROW INTO REGS 
OcoélC 4870 ECC2 ocoo2 530 LH 75210514) LOAD COLUMN INTO REG7 
0coé14 58CC EC20 0c020 531 u 123210014) LOAD UNPROCESSED SEG INTO REGL2 
ocoéle 1C4c 532 MR 4,12 MULTIPLY ROW ® WEIGHT 
OCCELA 1C6C $33. MR 6512 MULTIPLY COL #® WEIGHT 
OCO6é1C 1A85 534 AR 855 ACCUMULATE ROW #* WEIGHT IN REGS 
OCO6LE 1A97 535 AR 9,7 ACCUMULATE COL #® WT IN REGO 
OCO62C 1AAC 536 AR 10,12 ACCUMULATE WEIGHT IN REGLO 
OCCé622 508C 3214 00778 537 ST 8, RWUPSG STORE IN ROW*#WT UNPROC SEG 
OCOEé2E 509C 3218 o0o77C 538 ST 9,CWUPSG STORE IN COL#WT UNPROC SEG 
OCO62A SOAC 321C 00780 539 st 10, WUPSG STORE IN WEIGHT UNPROC SEG 
OCC62E 5880 322C 00784 540 LE ByRWCS LOAD REGS WITH S(ROWeWT) 
O0C0632 589C 3224 oc7es8 541 L 9,CWCS LOAD REGO WITH S(COLewT) 
OCOé3é 5BAC 3228 0078C 542 L 10,WCS LOAD REGLO WITH S{ WEIGHT) 
OC063A 1844 543 SR 494 CLEAR REGS 
OCOE3C 1866 544 SR 656 CLEAR REG6 
OCOE3E 485C ECCC ococo 545 LH 5,0(0,14) LOAD ROW INTO REGS 
OCCE4S2 4870 ECC2 00002 546 LH 79210514) LOAD COLUMN INTO REG7 
CCOb4é S5B8CC E024 0C024 547 L 1293610514) LOAD CRUSHED STONE INTO REG12 
OCO64A 1C4C 548 MR 4912 MULTIPLY ROW ® WEIGHT 
OCOé4C 1C6C 549 wR 612 MULTIPLY COL ® WEIGHT 
OCC64SE 1A85 550 AR 8,5 ACCUMULATE ROW#wWT IN REGS 
OCQ65C 1LA97 551 AR 9e7 ACCUMULATE COL # WT IN REGO 
000652 LAAC 552 AR 10,12 ACCUMULATE WEIGHT IN REG1O 
0C0654 5080 322C 00784 553 ST 8,RWCS STORE IN ROW#WT CRUSHED STONE 
ocoé6sé@ 5090 3224 00788 554 st 9,CWCS STORE IN COL®WT CRUSHED STONE 
QCO65C 50A0 3228 0078C 555 = 10,WCS STORE IN WEIGHT CRUSHED STONE 
OQooeeéc S8EC E038 0c0o38 556 UPWGC L 14,56(0,14) LOAD NEXT DEVFO INTO REG1L4S 
OCCE64 4TFC 3048 OO5AC 557 B wWGCLOOP GO TO wGCLOOP 
558 # AT THIS POINT WE MUST FIGURE WEIGHTED GEOMETRIC CENTER(S) 
ocoeée 559 FIGWGC EQU * (FIGURE WEIGHTED GEOM CENTER) 
OCOEEeR SBAC 3210 00774 560 L 10,WPSG LOAD S(WT) INTO REGLO 
CCO66C 12AA 561 LTR 10,10 WERE THERE ANY 


OCOEGE 478C 3126 O068A 562 BZ PSGSAPY IF NOT, GO TO PSG SAME AS PREV YR 


LOC 


O0cé72 
OCCE?S 
Occé78 
OCO6TA 
OCOETE 
ocoés8o 
6C0684 
OCOE8E 
OcoésA 
OCCé68E 
oo0éegc 
0c0é94 
OCOE96 
OCO69A 
ocoéegsc 
OCOéAC 
OCO6A2 
OOOEAE 
OCOeAE 
OCO6AC 
ocoésc 
oodesb2 
OCOée6 
OcosRe 
ocoéec 
OCOéBE 
occéc2 
OCC6C4 
ocoéece 
OCO6CA 
OcoéceE 
OCOECE 
O0oéC2 
ocoé6ce 
OCOéDE 
OCOEE2 
OCOEEE 
OCCéEC 
OCOEFC 
OCOEFS 
QOO6FA 
OCOEFE 
occ7ce 
OccTcé 
oco7cc 
ocoTic 
occ714 
OCOT1A 
OCOTIE 
OC0722 
occo72e 
oca72c 
OCO72E 
0C0732 
0C0738 
OCOT3E 
0Cc0742 
OcCa746 
0CO074C 
eco7sc 
Oco754 
OCO75A 
OCcOTSE 
OCcCcTEC 
OCO764 
oce76e 
oco7éc 
occ77C¢c 
OCO774 
oco77e 
Oco7vICc 
oco7ec 
OCO7e4 
oco7es 
oco7ec 
0c0790 
Oco7cs 
oco7oc 
ocosecc 
000825 
OCOB4C 
ocoesc 


SUBROUTINE WEIGHTED GEOPETRIC CENTER 


OBJECT CCDE ADDR1 ACOR2 STMT SOURCE STATEMENT ; FOLAUG68 
1844 ; 563 SR 414 CLEAR REGS 
585C 3208 0076C 564 L 5RWPSG LOAD S(R*W) INTO REGS 
104A 565 OR 4910 OIVIDE BY S(twWT) 
4050 2088 O37B8 566 STH 5, WGCPSG STORE ROW WGC 
1B44 567 SR 494 CLEAR REGS 
585C 320C 60770 568 L 5,CWPSG LOAD REGS WITH S{COL#WT) 
104A 569 OR 4,10 DIVIDE BY S(wT) 
4050 20BA O37BA 570 STH 5 »WGCPSGe2 STORE WGC COL 
58A0 321C 00780 571 PSGSAPY L 10,WUPSG LOAD REGLO WITH S(WT) UNPROC SEG 
12A4 572 LTR 10,10 WERE THERE ANY 
478C 3148 OO6AC 573 BZ UPSGSAPY IF NOT GO TO UPSGSAPY 
1844 574 SR 494 CLEAR REGS 
585C 3214 00778 575 t 5yRWUPSG LOAD S(ROWewWT) INTO REGS 
104A 576 OR 410 DIVIDE BY S(wWT) 
4050 20BC 037BC 577 STH 5,WGCUPSG STORE ROW WGC 
1B44 578 SR 494 CLEAR REG4 
585C 3218 oo77C 579 u 5,CWUPSG LOAD REGS WITH S(COL#WT) 
104A 580 OR 4,10 DIVIDE BY S{wWT) 
4C50 20BE O37BE 581 STH 5»WGCUPSG+42 STORE COL WGC 
58A0 3228 0078C 582 UPSGSAPY L 10,WCS LOAD REGLO WITH S( WI) CRUSHED STONE 
12AA 583 LTR 10,10 WERE THERE ANY 
4780 316A OO6CceE 584 BZ WGCRET IF NOT, GO TO WGCRET 
1844 585 SR 494 CLEAR REG 4% 
585C 322C 00784 586 & 5 /RWCS LOAD REGS WITH S(ROWewWT) 
104A 587 OR 4,10 DIVIDE BY SUM{IWT) 
4050 2CCC 037CO 588 STH 5,WGCCS STORE ROW WGC 
1844 589 SR 404 CLEAR REG4 
5850 3224 60788 590 L 5,CwWCS LOAD REGS WITH S{COL#WT) 
104A 591 OR 4,10 DIVIDE BY S(WT) 
4050 20C2 037C2 592 STH 5»WGCCS+#2 STORE COL WGC 
593 wGCRET €QU * (WGC RETURN) 
9209 22C8 039C8 594 MvI CARCONT,X*09! SET CARRIAGE CONTROL 
C22 2200 3278 C3900 0070C 595 MVC OUTLINE+#20(L*M38) ,M38 
0218 230EF 3246 O3A0E OOSOC 596 MVC OUTLINE*69(L°M39) » M39 
48BC 2088 03788 597 LH 11,WGCPSG 3d 
SEBO 2C0C 037CO 598 cvo 11,0 pis 
DEO3 22E€2 2CC6 039E2 03706 599 ED OUTLINE+25(4),D0W#6 °° 
48B0 2CBA f O37BA 600 LH 11,WGCPSG+2 ze 
SEBO 2CC0 03700 601 cvO 11,0wW ve 
OEO3 22E& 2CCé 039FB O3TC6 602 ED OUTLINE#31(4),DW+e °° 
58FO 204C 0374C 603 L 15, AL TNEOUT ae 
OSEF 604 BALR 14,15 =e 
022F 2200 3278 03900 0070C 605 MVC OUTLINE*20(L°M38) »M38 
O21A 230E€ 32C1 O3A0E 00825 606 MVC OUTL INE+69(L°M40),M40 
48BC 2CBC 0378C 607 LH 11,WGCUPSG 
4EBC 2CCO0 037C0 608 cvod 11,0W We 
DEO3 22E2 2CCé6 039E2 037C6 609 ED OUTLINE#25(4),0Wt6 °° 
46BC 2CBE O37BE 610 LH 11,» WGCUPSG+2 
SEBO 2CCO0 037C0 611k cvo 11,0W ee 
O£03 22€8 2CC6 039EB 037C6 612 ED OUTLINE+31(4),DW+6 ¢* 
58FC 2C4C 0374C 613 i. 15, AL TNEOUT se 
CSEF 614 BALR 14,15 OU 
9219 22C8 039C8 615 AVI CARCONT,X*°19° SKIP 3 LINES AFTER PRINTING 
D22F 22C0 3278 039DN 0070C 616 MVC OUTLINE*#20(L*M38) M38 
O20C 23CE 320C O3ACE 00840 617 MVC OUTLINE*69(L°M41),m41 
48BC 2CCO 037CO 618 LH 11,WGCCS 
4EBC 2CCC 037C0 619 cvo 11,08 
DEO3 22E2 2C06 039E2 03706 620 €0 OUTLINE+25(4),DWe6 °° 
48BC 2CC2 037C2 621 LH L1,WGCCS¢2 
SEBO 2C0C 03700 622 CvD i1,0wW ee 
OE03 22€8 2CC6 C3I9EB 03706 623 ED OUTLINE*31(4),0mW46 °F 
S58FO 204C 0374C 624 L 15, AL TNEOUT ws 
OSEF 625 BALR 14,15 we 
5e0C 3230 00794 626 (2 135 SAVEWGC+4 
98EC CCOC occcc 627 tM 14,12,12(13) 
O7FE 628 BR 14 RETURN 


629 RWPSG os F 


630 CWPSG os 

631 WPSG os F 

632 RWUPSG oS F 

633 CWUPSG Os F 

634 WUPSG os e 

635 RwWCS os F 

636 CwWCS os F 

637 wCS oS F 

638 SAVEWGC ODS 18F 
occco790 639 ASAVEWGC DC ACSAVEWGC) 
C709C 90440402020 640 38 oc C*GRID --/, -/~- IS WEIGHTED GEOMETRIC CENTER FOR® 
O7T09D6C3C5E2E2C5 641 439 oc C*PROCESSED SAND AND GRAVEL® 
E4D5070906C3C5E2 642 M40 oc C*UNPROCESSED SAND AND GRAVEL’ 
C3D09E4E2C8C5C440 643 M41 oc C*CRUSHED STONE® 

644 LTORG 

645 OROP 3 


646 SHHSSSKLSHSSSASHACKAHFHFHHKSHSSHHHSSHSSSEHHHESEHSSSHHFESASGEHSHeGeReeneseEee 
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INPUT & OUTPUT ROUTINES ({CARDIN & LINEQUT) PAGE 17 


tec OBJECT CCDE ADDR1 ADOR2 STPT SOURCE STATEMENT ; FOLAUG68 5/30/69 
ocossc 648 USING #,3 
649 ® THIS SUBROUTINE READS A CARD AND PLACES IT INTO AN AREA CALLED INPUT 
ccoesc 90EC DOOC ocooc 650 CAROIN STM 14912,12(13) (CARD INPUT ROUTINE) 
oc0e854 183F 651 Rk 3015 
ocoesé 41E&0 302C oos7c 652 LA 14, ISAVE 
OCO8S5A S5SCED CCCs 00008 653 ST 14,8(13) 
Ocoese SOOE CC04 00004 654 st 1354(14) 
OCOBE2 LBDE 655 LR 13514 
656 GET INDCB,» INPUT 
ocoee4 4110 3C74 008C4 6574 LA 1, {NDCB LOAD PARAMETER REG 1 
ocoeée 41CC 2277 03977 658+ LA 0, INPUT LOAD PARAMETER REG O 
OCO8é6C S58FC 1C3C 0c030 6594 re 15,48(0,1) LOAD GET ROUTINE ADDR. 
ocos7c OSEF 6604 BALR 14515 LINK TO GET ROUTINE 
00C872 5B80C 303C 00880 661 L 13, ISAVE+4 
0C0876 98EC DCCC ocooc 662 LM 14,12,12(13) 
OCOBTA CT7FE 663 BR 14 
Ocoe7Cc 664 ISAVE oS 18F 
665 PRINT NOGEN 
666 INDCB OCB MACRF=GM»DSORG=PS,DONAME=SYSIN 
667 #,20¢ [HBO63 ODNAME SHORT-PADDED TO 8 CHAR 
723 PRINT GEN 
724 OROP 3 


726 © THIS SUBROUTINE WRITES OUTPUT FROM AN AREA CALLED OUTLINE 


0C0924 727 USING #,3 f 
occ9s24 S0EC DCCC occoc 728 LINEQUT STM 1491251213) (OUTPUT ROUTINE) 
oco92e@ 183F 729 LR 3,15 ; 
OCO92A 41EC 3038 0095C 730 tA 14,0SAVE 
CCC92ZE SOED cCoe occc3s 731 st 14,8(13) 
0C0932 SONE CCO4 0C004 732 ST 1359114) 
OCO93€ 18DE 733 uR 13,14 
134 PuT OUTOCB,CARCONT 
Occ93e@ 4110 3C80 O09A4 735¢ LA 1,OUTOCB LOAD PARAMETER REG 1 
OcO92C 41CC 22C8 039C8 736+ LA O,CARCONT LOAD PARAMETER REG O 
OCC94C S58FC 1C3C 0c030 737 L 15548(0,1) LOAD PUT ROUTINE ADDR. 
OCC944 CS5SEF 738 BALR 14,15 LINK TO PUT ROUTINE 
OCOS4E 924C 22C9 039C9 739 AVI OUTLINE,C* * CLEAR OUTPUT LINE 
O0C094@ C282 22CA 22C9 C39CA 039C9 740 MVC OUTL INE#1(131),OUTLINE 
OCO95C 58CC 303C 00960 741 L 13,0SAVE*4 
0cC954 98EC OCCC occcc 742 LM 14,12512(13) 
oco9se OC7TFE 743 BR 14 
occ9gsc 744 OSAVE Os 18F 
745 PRINT NOGEN 
746 OUTOCB OCB MACRE=PM,DSORG=PS, DDNAME=SY SOUT, x 
LRECL=133,RECFM=FBM,BLKSIZE=3591 
147 #,ee2 THBO063 ODDNAME SHORT-PADDED TO 8 CHAR 
803 PRINT GEN 
occace 604 LTORG 
805 DROP 3 


BOG SHHSHeVesesHHFSSHHSOTSHHHHSEHOGSSEHSHSHHHSSSUFSHE RESCH SEEsEEEeeEE 


tcc 


ocoace 
OCCACE 
occace 
OccAacc 
OCOACE 
OCOA12 
OCcoAlé 
OCOAlA 
OcoAaic 
OcéA2C 
OCcOA22 
GCOA2ZE 
OCOA2E 


OCcOA2C 
OCOAZE 
0COA32 
OCOA34 
OCOA38 
OCOA3A 
OCOA3E 
OCOASC 
OCOAS4 
OCOA46 
OCOA4A 
OCEA4SC 
OCCASC 
OCOAS2 
OCOASE 
Ocoassé 
OCOASE 
OCOAE2 
OCOAEE 
CCOAEA 
OCOAEE 
OCOATC 
OCCAT4 
OCCACC 


SUBROUTINE PRESENT PERTOD USAGE 


OBJECT CCOE 


9OBC 
183F 
58EO 
S50EC 
5ODE 
180E 
5840 
1655 
4350 
1866 
$670 


1065 
5070 
1B6€é 
5870 
1065 
5070 
1866 
587C 
1065 
507C 
1855 
4350 
1C65 
5060 
so7c 
5870 
5B7C 
507C 
S5eCC 
98EC 
C7FE 


oocc 
3068 
ocos 
cca4 
2118 
401B 


402C 


212C 
4024 
213¢ 
4C1C 
2128 
4029 
214C 
2134 
2128 
2134 
2138 


307C 
occec 


COCCCAT4 


ACORL ADOR2 


ocooc 
OOATO 
ocoos 
occo4s 
03818 
ocoiB 


0c020 


0382C 
0C024 
03830 
ocoic 
03828 
0c029 
03840 
03834 
03828 
03834 
03638 


0cA7Ss 
occoc 


STMT 


808 
809 
810 
Bll 
812 
813 
614 
815 
816 
817 
818 
619 
620 
621 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
B44 
845 


SOURCE STATEMENT 


SRPPU 


ASAVPPU 
SAVPPU 


US ING 
EGU 
stm 
uR 
t 
st 
ST 
LR 
t 
SR 
ic 


BR 
oc 
os 
LTORG 


@,3 

e 
14,12512(13) 
3,15 

14, ASA¥PPU 
14,8013) 
1394014) 
13,14 

4 ,WIPBE 
555 
52271054) 
606 
79321054) 


605 
7,PPUUPSG 
656 
79361094) 
6,5 
7,PPUCS 
636 
7,2840,4) 
695 

7, PPUPSG 
505 
Se41(0,4) 
655 
6,HUNDRED 
VePPUSAND 
7,PPUPSG 
7» PPUSAND 
Te PPUGRAVL 
13, SAVPPUS4 
14e12512(13) 
14 
A(SAVPPU) 
1L8F 


PAGE 18 


FOLAUG68 5/30/69 


LOAD REGS WITH WIP BEING ESTABLISHED 
CLEAR REGS 

INSET YEARS TO COMPLETION INTO REGS 
CLEAR REG6 

LOAD UNPROCESSED SEG TO COMPLETION 
INTO REG7T 

OIVIDE LIFE BY YRS TO COMPLETION 
STORE PRESENT USAGE UNPROCESSED SEG 
CLEAR REG6 

LOAD CS TO COMPLETION INTO REG7 
DIVIDE CS BY YEARS TO COMPLETION 
STORE PRESENT USAGE CS 

CLEAR REG6 

LOAD PROCESSED SEG TO COMPLETION 
DIVIDE BY YRS TO COMPLETION 

STORE PRESENT USAGE PROCESSED SEG 
CLEAR REGS 

INSERT PERCENT SANO TO COMPLETION 
MULT PSG USAGE BY PERCENT SAND 

AND OIVIDE BY 100 = SAND USAGE 
STORE SAND USAGE 

LOAD REG7T WITH PRESENT USAGE SEG 
SUBTRACT SAND 

STORE PRESENT USAGE GRAVEL 


B46 SHSSOHHSHSTDATSSOSSSSHSSHESHSEHHHSSCHHFHHOSHSSESHSSSHSSHSHTFSSESOSEUHSERGSSAGEEEES 


tec 


ocoacc 
COCACC 
OCcOACC 
Oc37CC 
occac2 
OCOACE 
OCOACA 
GCcOaAcCc 
OCcOAeC 
OCOADS 
6CCROA 
OC6ADC 
OCOAEC 
OCOAES 
OCGAEA 
OCOAEC 
OCOAFC 
OCCAFE 
OCCAFE 
OCOAFC 
OccBC2 
6COBC4 
occsace 
OCOBCA 
occece 
OccBl4 
oceple 
OCORILE 
6Cc0B22 
ocob2é 
ocob2é 
cceéBb2e 
OCcOB2C 
OcoB3C 
Ocee34 
ocoe3e 
Oc6B3C 


OcoB4c 
0C0844 
OceGBb4é 
@CCB4A 
ocoesc 
OCc0B5s4 
occese 
ocoesc 
OCOBEC 
OCOE64 
OocoBéee 
OCOBEA 
OCCE6E 
OC0B74 
ocoe7e 
OcCBTC 
occesc 
ecobe4s 
ocobee 
occesc 
occBeec 
oceegc 
ocoe94 
606898 
OCOBSC 
OCGBAC 
OCGBA4 
OcOoBAEe 
OCceBAC 
6coeac 
eceeec 


ocoeé2 
oceebse 
OC6BBA 
ocoesc 
6coéeécc 
OCcoBCc4S 
oceece 


ecoecc 
OCcOscc 
Ocoée2 


OcoeDe 
OCGBCA 


Ocosce 
OCOBCE 
OCOBE2 
OCOBEE 
OCOBEA 
OCOBEA 
OCOREE 
OCOBEC 
OCOBES 


ocesre 
OCO6FS 
OCOBFC 


INLETIALIZATICN CONTROL SECTION (BEGINIT) 


OBJECT CODE 


18CF 


9268 
56FC 
CSEF 
5BFC 
9211 
0200 
1877 
4370 
4E70 
CEO3 
OSEF 
9209 
0232 
OSeF 
9219 
0233 
OSEF 
58FC 
OSEF 
5870 
c5cl 
4780 
0203 
4170 
47FC 


1677 
507C 
507C 
5c70 
5c70 
5C70 
5070 


5690 
1299 
4740 
02C3 
9103 
471C 
9680 
589Cc 
4& TFC 
s8gc 
1269 
474C 
C203 
$1e@c 
47EC 
9102 
4TEC 
947F 
4TFC 


9102 
471C 
9é8C 
5680 
5aec 
5080 
5890 
47FO 


5840 
1244 


4760 
58FO 
OVFF 
914C 
4780 
9180 
4710 


585C€ 
1255 
4700 


5840 
47F0 


9101 
47ic 
47TFC 


94FD 
1B66 
$660 
4TFO 


5850 
5040 


22C86 
204C 


204C 
22C8 
22F1 


2272 
2cco 
22F8 


22C8 
2200 


22C8 
2200 


2c3c 


2coc 
7coc 
CCE6 
7coc 
7T01C 
CO4E 


214C 
215C 
2148 
211C 
212C 
2124 


2064 


CCA4 
904C 
9CC4 
cogc 
9ccs 
9034 
C084 
2C68 


CCEC 
904C 
9CCé6 
cocc 
9064 
COE4 
9CC6 
COE4 


9CC4 
COE4 
9C06 
215¢ 
gcce 
215C 
9034 
CCA8 


2064 
COFC 
2054 
4CC5 
Cc3EC 
4ccs 
CL1eE 
4008 
C12A 
4034 
COFO 


4CC5 
C1B4 
C1I2E 


4005 
2cecc 
C1BE 


4034 
2094 


2545 


2CCé6 


C914 


C947 


2cé0 


cgec 


csec 


cg8éCc 


ADDRL 


039C8 


039C8 
O39F1L 


039FB 


039C8 
C3900 


039C8 
03900 


ccoco 


ccooc 


CO04C 
CCCC4S 


coocs 


C004C 
ccocé 


cccc4 


ccccé 


cccas 


cco06 


ooocs 


ceco0s 


cco0s 


coo0s 


ACOR2 


O374C 
O374C 
03C45 
03972 


03700 
03706 


01304 


01407 
0373C 
0370C 
03760 
00B26 
01440 


00010 
OOBOE 


0384C 
03850 
03848 
O381C 
03820 
03824 
O37E4S 


00B64 
01440 


OOB5C 
00034 
00844 
03768 


OOBAC 
61440 


0o0B8C 
OO0BAS 


OOBA4S 


OOBAS 
03850 
ocoos 
03850 
0C034 
00868 
03764 
oos8ec 
03754 
OCEAO 
OOBDE 
ocoos 
OOBEA 


00034 
00860 


OocT4s 
OCBEE 


Q37CC 
OOCT7E 


00034 
03794 


STMT 


848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
8Ti 
872 
873 
874 
875 
876 
877 
878 
879 
680 
88L 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 


SOURCE STATEMENT ; FOLAUG68 


BEGINIT CSECT 
USING #,12 
LR 12,15 LOAD BASE REG12 
USING COMMON,2 


AVI CARCONT,X* 88° SKIP TO TOP OF PAGE 
es 


t 15, ALT MEOUT 

BALR 14,15 MU 

t 15, AL TNEOUT WRITE HEADING 
MVI CARCONT »X*11i* mae 

¥VC OUTLINE+S0(L*BYM),BYM Wh 
SR Tol as 

Ic Ts YEAR os 

cvo 7,0 

EO OUTL INE+50(4) »DK+6 

BALR 14015 ee 

MVI CARCONT,X*°09° = 


MYC OUTLENE+20(L° HL), HL ee 
BALR 14,15 


MVI CARCONT,X°19° We 

MYC OUTLINE+20(L°H2),H2 ot) 

RALR 14,15 A 

L 15, ASRWGL LOAD 15 WITH ADDR SR WGC 

BALR 14,%5 CALL SUBRTNE WEIGHTED GEOM CENTER 
L 7,40SQ LOAD REG? WITH ADOR OUTSIDE Q°S 


ARE WE DONE WITH OUTSIDE Q*S” 
IF YES 60 TO SETACCS 

SET PRESENT MATL USED = 0 
POINT REG? AT NEXT OUTSIDE Q 


TESTOUTS CLC 0(257) ,MINONE 
BE SETACCS 
wvC 120497), =F°0* 
LA 75161057) 


B TESTOUTS GO TO TESTOUTS 
SETACCS EQU 2 (SET ACCUMULATORS) 

SR ToT? CLEAR REG7T 

ST ToMWTD SET MWTD = 0 

ST 7T,MWTDPQ SET MUTDPQ = 0 


ST Te FQADY SET FQADY = 0 

Sv To TYPQASG 

ST Te TYPQAUSG 

ST ToTYPQACS 
# THIS SECTION SETS THE ZORED OUT BIT FOR ALL Q*S AND PQ*S WHICH 
® HAVE BEEN ZONED OUT OURING THE PREVIOUS PERIOD 


c 9»SQCH LOAD REGO WITH START Q CHAIN 
TOFZO LTR 909 ARE WE DONE WITH ALL Q°S 
8M TPOFZO IF YES, GO TO TPQFZO 


SET USAGE DURING PERIOD = 0 
HAS Q(9) BEEN ZONED OUT 


AVC 761459) _,2F*0? 
TM 419) ,X°O3* 


BO CNOFZO if NOT GO TO CNQFZO 
oI 5(9).xX°80* SET Q ZONED OUT BIT =1 
CNQFZO L 955210,9) LOAD REGO WITH NEXT Q IN CHAIN 
8 TOFZO GO TO YQFZO 
TPQFZC L 99SPQCH LOAD REGO WITH START PQ CHAIN 
TNPQFZO LTR 909 ARE WE DONE WITH ALL PQ*S 
BM TESTQS If YES GO TO TESTQS 


MvC 7614,9b—2F°0® SET PQ MATL USED = 0 


TH 6(9),X°80° HAS PQ(9) BEEN PREVIOUSLY ZONED OUT 
BNO HIBZOOPY IF NOT, GO TO HIBZODPY 

TM 419) ,K*°02° CAN IVY AGAIN BE USED 

BNO CMPQFZO IF NOT, GO TO CNPQFZO 

NT 6(19),X°7F? UN ZONE OUT PQI9) 

B CNPQFZO GO TO CNPQFZO0 


HIBZOOPY EQU * 
TM 4199 5X*O2° 
BO CNPQFZO 


(HAS IT BEEN ZONED OUT DURING PREVIOUS YEAR) 
HAS PQ(9) BEEN ZONED OUT 
IF NOT GO TO CNPQFZO 


oY 6(19).x°809 SET PQ(9) ZONED OUT BIT =1 

L &,MWTDPQ LOAD MATL WASTED IN PQ INTO REGS 

A 8581009) AOD MATL WASTED AT PQ(9) 

st 8,4MWYDPQ UPDATE MATERIAL WASTED AT PQ 
CNPOQFZO L 95521009) LOAD REGS WITH ADOR NEXT PQ IN CHAIN 

8 TNPQFZO GO TO TNPQFZC 
TesTas EQU * 

L 4 ,SOCH LOAD & WITH START QUARRY CHAIN 
ZNOUTOLP LTR 454 IS ADDRESS NEGATICE .. ARE WE DONE 
® WIYH SELF-PRESERVATION MODEL 

BNK NOWSPM IF NOT DONE, GO TO NOWSPM 

L 159AMENEDP OTHERWISE GO TO MINEDP 

BR 15 4 
NOWSPH TM 5(4)9X"40° Is IT A S&G QUARRY 

BZ TwACSQ I NOT GO TO IT WAS A CS QUARRY 

vs 5(4)9X*80" HAS Q BEEN ZONED OUT 

60 QWASZO IF SO, GO TO Q@ WAS ZONEO OUT 


© AT THES POINT Q WAS MOT ZONED OUT. WE WILL TEST IT FOR DEPLETION 


L 528(0.4) LOAD LIFE OF Q INTO REG 5 
LTR 555 TEST LIFE 
BNP QWASDP IF LIFE NOT +, GO TO QWASDP 
@ AT THIS POINT, QO WAS NOT DEPLETED OR ZONED OUT 
UPOTR4S L 49521094) LOAD ADOR OF NEXT Q INTO REG 4 
B ZNOUTOLP GO TO ZONE OUT DEPLETION LOOP 


e AT THIS POINT REG 4 CONTAINS ADOR OF Q WHICH IS TO BE ZONED OUT 
QwASsSz0 EQU * (QUARRY WAS ZONED OUT) 
™* S(4)eX*O1° IS Q A PROCESSING PLANT 


80 DETALOW IF YESe GO TO DETALOW 
8 SETALZ GO TO SETALZ 
QWASDP EQU ® (QUARRY WAS DEPLETED) 
NI 5(4),B°1LLi11101° SET ACTIVE Q INDICATOR TO 0 


SETALZ SR 656 SET REG6 TO O 
ST 6, A0EPP SET ALLOWANCE TO O 
8 ARETMQ GO TO ARETHQ 
@ AT THES POINT, QUARRY IN REG 4‘MUST BE DELETED 
ZONOUTQ4 EQU * (REMOVE Q(4) FROM SYSTEM) 
L 55521054) LOAD REGS WITH NEXT Q IN CHAIN 
ST 4, AQTBD STORE ADDR OF Q TO BE DELETED 
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5/30/69 


Loc 


ococce 
Ococc4 
ococcé 
OCOCOA 
OcCcCCE 
Ococic 
ococl4 


ececie 
ocecic 
Ococic 
ococec 
ococ2é 
OCCC2A 
occc2e 
OCOC 34 
ococ3e 
ococ3c 
Occc42 
OCcOc4sé 
ococ4e 
OcOoc4c 
ococs2 
ococsé 
ococse 
ococsc 
OCOCSE 
Ococé2 
ococée 
OcOocéC 
OCOCEE 
ococ7c 
OcocT4 
ocec7e 
ococ7c 
OcCCTE 
OCO6CTE 
ococe2 
Ococ84 
occecee 
OcCCeA 
ooccee 
Ococg4 
ococ9s 
ococgc 


OcccaAc 
OCOCcA4 


ococae 
ococac 
occocec 
OCOCB4 
ococe4s 
occcee 
Ococec 
ococcc 
occcc4 
ococce 


ococcc 
ococcc 
QcOCcC4 
ocecce 
OcCCCA 
OCOCCE 
OCOCE2 


Occces 


OCGCEC 
OceCF2 
OCCCF2 
ococre 
OcOCcFA 
OCOCFE 
ocooc2 
OCOCC4S 
Ococce 
OCODCE 
occci2 
occclé 
OCODIC 
ococ2c 
OCcOL24 
OCCC2A 
OCOD2E 
ococ3c 
OCOL34 
OCOC3A 
OCCO3E 
OccL4c 


OCOL44 


OCcOc4s 
Ocov4se 


INITIALIZATION 


OBJECT CODE 


58FO 
OSEF 
94FC 
5860 
1286 
470C 
SABO 


50B0 


9209 
0236 
46B4 
4EBC 
DEO3 
48B4 
4EBC 
OE03 
58FC 
OSFF 
9219 
0222 
5eBC 
1288 
472C 
1868 
4EBC 
CEC9 
58FC 
CSEF 
1845 
4TFC 
5040 
S5BFC 
OSEF 


589c 
1299 
474C 
1949 
478C 
cscce 
4T7C 
g91ec 
47T1C 


5eBc 
S9BC 


472C 
589C 
4TFC 


910e 
47EO 
9101 
478C 
91C1 
478C 


$2C3 
5040 
58FC 
OSEF 
9501 
4770 
05C3 


474C 


0201 


589C 
9SFE 
509C 
58F0 
CSEF 
9211 
023C 
4889 
SEBC 
0E03 
48B9 
4EBC 
CEO3 
58FC 
OSEF 
5090 
02c0 
58FC 
OSEF 
924E 


961C 


58B6C 


2024 


4C05 
4008 


Ccrse 
214C 


214C€ 


22C8 
2200 
cccc 
2cco 
22EC 
ccc2 
2ccc 
22F2 
2C4C 


22C8 
2200 
4CC8 


CYSE 


2cecc 
22FC 
2C4C 


CCFC 
2ccc 
204C 


2C64 
C1F4 


C1eEC 
4CO7T 
C1EC 
9cc5 
CLEC 


9cca 
gccc 


c558 
9034 
c1c2 


4CC5 
C138 
4CC5 
C362 
4C0C4 
C2FC 


23F0 
21¢c 
2044 


23F 1 
c37C 
2104 


C306 


402E 


2CF8 
9C0é 
2098 
2028 


22C8 
2200 
ccco 
2ccc 
22F6 
cco2 
2ccc 
22FC 
204C 


2084 
gcc? 
2C14 
9cc5 


4ccs 


4c0e 


2408 


2CC6 


2CC6 


243F 


2CC4 


gcc7 


2108 


2CEC 


25C7 


2CC6 


2CC6 


4CC7 


CONTROL SECTION (BEGINIT) 


ADDRI 


coo0cs 


039C€8 
C3900 


C39EC 


C39F2 


C39C8 
03900 


C39FO 


ccoc7 


ccocs 


cccos 
ccocs 


ccoc4s 


C3AFO 


C3AFI 


C38C4 


CCO2E 


ccocé 


C39C8 
039f0 


C39F6 


C39FC 


ccoc? 


ccoos 


ccocs 


ACOR2 


03724 


00008 


oocic 
0384C 


0384C 


038C8 
ocooo 
03700 
037C6 
occc2 
03700 
037C6é 
0374C 


O383F 
ocoos 
OOCcsE 
037CO 


03704 
0374C 


oceeo 
03700 
03740 


03764 
OCCR4 
QOCAC 
ocoo7 
OOCAC 
OOCAC 
ocoor 
ocooc 
OLOLA 
00034 
occs82 
OOorFS 
OOE22 
ocoBo 


03800 
03744 


OCE30 
03808 


ococé 


O37EC 
O37F8 


03798 
03728 


03COT 
accoo 
037C0 
037C6 
occo2 
037C0 
037C6 
0374C 


03784 


occc7 
03714 


oooos8 


STMT 


947 
948 
949 
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SOURCE STATEMENT ts FOLAUG68B 5/30/69 
L 15,ASR0Q DELETE IT (CALL SUBROUTINE DELETE Q) 
BALR 14,15 se 
NI 5(4),X*FC# SET Q AND PP INDICATOR TO 00 
L 11,810.04) LOAD REGIL WITH REMAINING LIFE Q(4) 
LTR 11l,ll IS LIFE 0 OR NEGATIVE 
BNP DACCMW1L IF YES, GO TO DACCMWl 
A 11,MWTD OTHERWISE ADD TO MATERIAL WASTED 
® TO DATE 
st 11,MWTD UPDATE MATERIAL WASTED TO DATE 
DACCMW1l EQU * 
MVE CARCONT,X*09* SET CARRIAGE CONTROL 
MVC OUTL INE*+20(L°M35).M35 MOVE MESSAGE TO OUTPUT LINE 
LH 11,014) MOVE ROW TO REGI1 
cvo 11,0W CONVERT ROW TO DECIMAL 
ED OUTLINE+35(4),0W+6 EDIT ROW 
LH 11.214) LOAD REGI1L WITH COLUMN 
cvD 11,0W CONVERT COLUMN TO OECIMAL 
ED OUTLINE4+41(4),0W4+6 EDIT COLUMN 
L 15,/ALTNEOUT CALL OUTPUT ROUTINE 
BALR) 14,15 $a 
MMVI CARCONT,X*19° 
MYC OUTLINE+20(L°M36).M36 MOVE MESSAGE TO OUTPUT FIELD 
x 11,8104) MOVE LIFE OF Q{4) TO REGIL 
LTR Pett IS LIFE POSITIVE 
AP EDLIFE IF YES GO TO EDLIFE 
SR Llyll OTHERWISE SET LIFE TO 0 
EOLIFE Cvod 11,0 CONVERT LIFE TO DECIMAL 
EO OUTLINE+39(10),0W+4 EDIT LIFE 
L 15, AL TNEOUT CALL OUTPUT ROUTINE 
BALR 14,15 ee 
LR 455 LOAD ADDR OF NEXT Q IN CHAIN INTO 5 
B ZNOUTDLP GO TO ZNOUTOLP 
DETALCW ST 4, APPTBM STORE ADDR IN APPTBM 
t 15, ASRAODEPP CALL SUBRTNE DETERMINE ALLOWANCE 
BALR 14,15 ve 
ARETMQ EQU * (ARE THERE ANY MORE QUARRIES) 
L 9,SQCH LOAD 9 WITH START QUARRY CHAIN 
LFAQ LTR 9.9 IS ADDR NEG (ARE WE DONE) 
RM OHNOO IF SO, GO TO OWNER HAS NO OTHER Q'S 
cR 4,9 1S Q(9) SAME Q AS Q(4) 
RE UPDTPTRO IF YES GO TO UPDTPTRI 
CLC T194),719) IS ET OWNED BY SAME OWNER 
BNE UPDTPTRO IF NOT, GO TO UPDATE PTR 9 
TH 5(9),xk*80" HAS IT BEEN ZONED OUT 
RO UPDTPTRO IF YES GO TO UPDTPTRO 
* AT THIS POINT IT IS A SEG Q OWNED BY SAME OWNER. WE WILL NOW 
* SEE IF ITS LIFE I[S GREATER THAN 1 YEAR ##eeneceevecee 
L 11,810,9) LOAD LIFE Q(9) INTO REGI1 
C 11¢12(009) COMPARE REMAINING LIFE WITH MAXIMUM 
* YEARLY OUTPUT 
BH OHAQ IF LIFE GREATER THAN 1 YR GOTO OHAQ 
UPDTPTRI L 945210,9) LOAD ADDR OF NEXT Q INTO REG 9 
8 LFAQ GO TO LOOK FOR ANOTHER QUARRY 
OHNOQ EQU * (OWNER HAS NO OTHER QUARRIES) 
™M 514),X*08* DOES OWNER WISH TO SELF-PRESERVE 
BNO ZONOUTQ4 IF NOT, GO TO ZONOUTOQS 
™ 514),K°OL* WAS Q(4) A PROCESSING PLANT 
BZ Q4NPP IF NOT GO TO Q4NPP 
™ 4(14),x*OL1* CAN PROCESSING CONTINUE 
7d Q4PCNC IF NOT GO TO Q4PCNC 
® AT THIS POINT Q(4) IS A PROCESSING PLANT AND PROCESSING CAN CONTINUE 
MVE STRATEGY,X*03° SET STRATEGY BYTE 
st 4,010 STORE ADDR Q(4) IN QIQ 
iL 15,ASRPQCST CALL SRPQCOST 
BALR 14,15 oe 
CLI PTPQF,X*O1* WERE ANY PROCESSING PQ*S FOUND 
BNE WANPTEF IF NOT, GO TO WANPTF 
CLC COSTCMP1(4),COSTCMP2 COMPARE COST USING PP AT SITE WITH 
. COST USING Q(4) AS AN INTER PT 
BL EQwPP IF COST IS LOWER WITH PP AT SITE, 
* GO TOEQWPP 
® AT THIS POINT, PQ WHOSE ACOR IS IN ADDRPQ2 MUST BE ESTABLISHED 
MYC 46(254),AMORT2 SET NEW AMORTIZATION COST AT Q(4) 
EQwwulP EQu * (ESTABLISH Q WHICH WILL USE Q(4) AS A INTER PT) 
t 9eADDRPQ2 LOAD REGO WITH ADDR PQ TO BE ESTABL 
NI 6(9),-B*LL111110° SET POTENTIAL QUARRY INDICATOR TO 0 
st 9,APQTBD STORE ADDR IN ADDR PQ TO BE DELETED 
L 15,ASROPQ CALL SUBROUTINE DELETE PQ 
BALR) 14,15 ee 
MVI CARCONT,X*11* WRITE & SKIP 1 
MVC OUTLINE*#20(L* MDPQAQ) »MDPQAQ MOVE MESSAGE TO OUTLINE 
LH 11,019) LOAD ROW INTO REGIIL 
cvo 11,0W CONVERT TO DECIMAL 
ED OUTLINE+45(4),0W#6 EDIT ROW 
LH 11,2(9) LOAD COL INTO REGIL 
Ccvo 11,0W CONVERT TO DECIMAL 
ED OUTLINE*51(4),0W+#6 EDIT COLUMN 
t 15,ALTNEOUT CALL PRINT ROUTINE 
BALR 14,15 ee 
ST 9,AQTBA STORE ADDR IN ADDR QUARRY TO BE ADDE 
MVC T1969) 5714) SET OWNER PQ(9) TO OWNER Q(4) 
t 15+ASRAQ CALL SUBROUTINE ADD QUARRY 
BALR 14,15 os 
MVE 5(9),B*O1LOOILLIO® SET PQ 9 TO S&G QUARRY W/O PP THAT 
. REQUIRES AN INTERMEDIATE POINT 
or 5(4),B*00010000° SET Q4 TO IT IS AN ENTERMEDIATE PT 
* AND WISHES TO SELF PRESERVE 
PRINTIPM EQU * (PRINT INTERMEDIATE POINT MESSAGE) 
it 11,8(0,4) LOAD REGIL WITH REMAINING LIFE Q(4) 


Loc 


6copac 
OcOv4eE 
ocecs2 


Ococsé 
OCcODSA 
OCOC5A 
OCOLSE 
Occlé4 
ocobée 
OCODEC 
OcOovT2 
OcOocTé4 
OCOCTA 
ococsec 
ococe4s 
oco0dsé 
OCcOCeA 
ococse 
OcCOL94 
ocecge 
OC6C9A 
cecocgc 
OCcOcAC 
OCOCAE 
OCCCAA 
OCODAC 
OccoBC 
ococec 
ococes 
ococee 
ocoosc 
OCOCRE 
ocooc2 


ococcé 
OCOCCA 
ococce 
occcct2 
ococvé 
ococce 
occcoc 
OCOCE2 
OCCCEE 
OCCCEA 
QCOCFC 
OCCCF4 
ococre 
OCCCFE 
OCOEC2 
OCOEC4S 
OCcOECS 
OCCECE 
OcoE12 
OCOEL4 
occele 
OCOELE 
OCOE22 
OCOE22 
OCOE26 
OCGE2A 
OCOEZE 
OCcCcE3C 
OCOE34 


OCCE38 
OCOE3C 
OCOESC 
OCCES4 
Occe4se 
OCOESA 
OCOE4E 
OCOES4 
OCcoEsS 
OCOESC 
OCCEE2 
OCOEEE 
OCOEEA 
OCGETC 
OCOET4 
OCOETE 
OCOETA 
acoeec 
OCOES4 
OCOE#E 
OCCESA 
OCOESC 
OCOES4 
OcoEge 
OCOESC 
GCCEAC 
QOOEAC 
OCOEAS 


OCOEAE 
OOCEAC 
OCOEAE 
CCCEB2 


INITIALIZATICN CONTROL SECTION 


OBJECT CODE 


1286 
4700 
SABC 


50B0 


9209 
0268 
48B4 
4EBC 
DEO3 
48B4 
4EBC 
DEO3 
58FO 
OSEF 
9211 
0222 
58ec 
1288 
472C 
1668 
4EBC 
CFO9 
SB8FC 
OSEF 
47FC 


9201 
504C 
S8FO 
OSEF 
9501 
477C 


589C 
94FE 
5c9c 
58FC 
OSEF 
9211 
023C 
4889 
4EBC 
OFO3 
48B9 
GEBC 
CEQ3 
58FO 
OSEF 
5c9¢ 
c2cc 
5S6FO 
OSEF 
9248 
e201 
4TFC 


$201 
504C 
S58FC 
CSEF 
9501 
4771C 


5890 
94FE 
509C 
S8FO 
CSEF 
9211 
023C 
46B9 
4EBC 
0EO3 
4889 
SEBO 
OE03 
58FO 
OSEF 
5C9C 
o2cC 
58FO 
OSEF 
924A 
0201 
4TFO 
9501 
4780 
4TFO 


9180 
4710 


585C 
1255 
47CO 
4TFC 


C29A 
214C 


214C 


22C8 
2200 
occo 
2ccc 
22EC 
co02 
2ccc 
22F2 
204C 


22C8 
22CC 
4CC8 


c20C 


2ccc 
22FC 
2C04C 


C116 


23FC 
21C0 
2044 


23F1 
C37C 


2CF4 
9CCceé 
2098 
2028 


22C8 
22C0 
cccc 
2ccc 
22FE 
ccc2 
2ccc 
22°C 
204C 


2C84 
gcc? 
2014 


9005 
9C2E 
C138 


23FC 
21CC 
2044 


23F2 
C304 


2CFC 
9coé 
2098 
2028 


22C8 
2200 
eccc 
2ccc 
22FE 
cco2 
2cco 
22FC 
204C 


2084 
9cc? 
2014 


9c05 
902E 
C138 
23F 1 
C30¢€ 
C138 


4005 
C3FE 


4CC8 


C404 
C116 


245E 


2CC6 


20C6 


243F 


2004 


25C7 


2CCé 


2ccé 


4CCT 


2CEA 


25c7 


20C6 


2C06 


40C7 


20F2 


ADORI 


039C8 
03900 


O39EC 


039F2 


039C8 
C3900 


C39FO 


C3AFO 


C3AFl 


ccocé 


c39C8 
C39CD 


C39F6 


O39FC 


ccoc? 


ccocs 
COO2E 


O3AFO 


O3AF2 


coocé 


039C8 
C39C0 


C39F6 


O39FC 


ccoo? 
coo0s 
COO2E 


C3AFL 


cocos 


ACOR2 


OO05A 
0384C 


0384C 


0389E 
ococo 
037C0 
03706 
ocoo2 
03700 
037C6 
0374C 


0383F 
ecocs 


oon9c 


03700 
037C4 
0374C 


OOBD6 


03800 
03744 


00E30 


O37F4 


03798 
03728 


03C07 
occco 
03700 
037C6 
ocao2 
037CO 
03706 
0374C 


03784 
ococ7 
03714 


O37EA 
OORFS 


03800 
03744 


00E94 
O37TFC 


03798 
03728 


03CO7 
occco 
03700 
037Cé 
ococ2 
037CO 
63706 
0374C 


03784 


ocoo7 
03714 


O37F2 
OOBFB 
OOo0Ccé 
OOBF8 
OOEB6 
ocoos 


OCEC4 
OOBCD6 


(BEGINIT) PAGE 21 
STMT SOURCE STATEMENT : FOLAUG68 5/30/69 
1046 LTR 11,11 IS LIFE 0 OR NEGATIVE 
1047 BNP DACCMW2 IF YES GO TO DACCMW2 
1048 A 11,MWTD OTHERWISE ADD TO MATERIAL WASTED 
1049 « TO DATE 
1050 sT 11, MWTD UPDATE MATERIAL WASTED TO DATE 
1051 DACCMW2 EQU) 4 
1052 MVE CARCONT,X*09° SET CARRIAGE CONTROL 
1053 MVC  OUTLINE#20(L°M42),M42 MOVE MESSAGE TO OUTPUT LINE 
1054 tH 11,014) MOVE ROW TO REGLL 
1055 CvD 11,0W CONVERT ROW TO DECIMAL 
1056 ED OUTLINE+35(4),OW#6 EDIT ROW 
1057 LH 11,214) LOAD REG1Li WITH COLUMN 
1058 CVD 11,0W CONVERT COLUMN TO DECIMAL 
1059 ED QUTLINE#4114),0W+6 EDIT COLUMN 
1060 L 15, ALINEOUT CALL OUTPUT ROUTINE 
1061 BALR 14,15 te 
1062 MMVI CARCONT,»X*12° SET CARRIAGE CONTROL CHARACTER 
1063 MVC = OUTLINE#20(L*M36),M36 MOVE MESSAGE TO OUTPUT FIELD 
1064 L 11981094) MOVE LIFE OF Q(4) TO REGIL 
1065 LTR dy LL IS LIFE POSITIVE 
1066 BP EDLIFEL IF YES GO TO EDLIFEL 
1067 SR 11,11 OTHERWISE SET LIFE TO 0 
1068 EDLIFEL CVD 11,0W CONVERT LIFE TO DECIMAL 
1069 ED OUTLINE+39(10),0W#4 EDIT LIFE 
1070 L 15, AL TNEOUT CALL OUTPUT ROUTINE 
1071 BALR 14,15 ee 
1072 B UPOTR4 GO TO UPDTRe 
1073 Q4PCNC EQU) ® (Q(4) PROCESSING CAN NOT CONTINUE) 
1074 MVE STRATEGY, X*O1® SET STRATEGY BYTE 
1075 sT 4,Q1Q STORE Q(4} ADOR IN QIQ 
1076 L 15,ASRPOCST CALL SUBROUTINE PQCOST 
1077 BALR 14,15 oe 
1078 CLI PTPOF,X*O1® WERE ANY PROCESSING PQ*S FOUND 
1079 ANE  WANPTF IF NOT, GO TO WANPTF 
1080 ® AT THIS POINT, PROCESSING TYPE PQ WAS FOUND AND WILL BE OPENED 
1081 * AS A QUARRY WITH A PROCESSING PLANT 
1082 EQupP L 9,ADDRPQL LOAD REGS WITH ADOR PQ TO BE ESTABL 
1083 NI 6(9),8°LLLL1110® SET PQ INDICATOR TO 0 
1084 st 9, APQTBD STORE ADDR IN ADOR PQ TO BE DELETED 
1085 L 15, ASROPQ CALL SUBROUTINE DELETE PQ 
1086 BALR 14,15 ee 
1087 WVI CARCONT,X*11° WRITE & SKIP 1 
1088 MVC OUTLINE+20(L*MDPQAQ),MDPQAQ MOVE MESSAGE TO OUTLINE 
1089 LH 112019) LOAD ROW INTO REGLL 
1090 CVD 11» OW CONVERT TO DECIMAL 
1091 ED OUTLINE#45(4),0W+6 EDIT ROW 
1092 LH 11,2(9) LOAD COL INTO REGIL 
1093 CVD 11, 0W CONVERT TO DECIMAL 
1094 FO OUTLINE#¢51(4),0W+6 EDIT COLUMN 
1095 L 15,ALIENEOUT CALL PRINT ROUTINE 
1096 BALR 14,15 se 
1097 st 9,AQTBA STORE ADDR IN ADDR Q TO BE ADDED 
1098 MYC —-71990974) SET OWNER PQ(S) TO OWNER Q(4) 
1099 L 15, ASRAQ CALL SUBROUTINE ADD QUARRY 
1100 BALR 14,15 ve 
1101 “VE  5(99,8°01001011° SET Q = SEG, PP, AND SELF PRESERVE 
1102 MVC 461259), AMORT1*2 SET COST TO PROCESS 
1103 B ZONOUTO4 GO TO ZONOUTOS 
1104 Q4NPP EquU)se (Q(4) NOT A PROCESSING PLANT) 
1105 MVI STRATEGY, X*O1* SET STRATEGY BYTE 
1106 st 4,QTO STORE ADDR Q44) IN QIQ 
1107 L 15,ASRPQCST CALL SRPQCST 
1108 BALR 14,15 ee 
1109 WANPTF CLI NPTPOFsX*O1" WAS A NON PROCESSING PQ FOUND 
1110 BNE WAPTF IF NOT, GO TO WAPTF 
L111 @ AT THIS POINT A NON-PROCESSING PQ WAS FOUND -- ADDR IN ADDRPQ3 
1112 L 9,ADDRPO3 LOAD ADDR OF PO TO BE ESTAB INTO 9 
L113 NI 619),X°FEP SET PQ INDICATOR TO 0 
1114 ST 9, APQTBO STORE ITS ADDR IN PQ TO BE DELETED 
L115 L 15, ASRDPQ CALL SUBROUTINE DELETE PQ 
1116 BALR 14,15 ee 
1117 MVI  CARCONT,X*11° WRITE & SKIP 1 
1118 MVC = OUTLINE*20(L*MDPQAQ),MDPQAQ MOVE MESSAGE TO OUTLINE 
1119 LH 11,0(9) LOAD ROW INTO REGLL 
1120 CVO 11s OW CONVERT TO DECIMAL 
1121 —0 OUTLINE#45(4),0W+6 EDIT ROW 
1122 tH 11,219) LOAD COL INTO REG11 
1123 CVD 11,0W CONVERT TO DECIMAL 
1124 i) OUTLINE+51(4),0W#6 EDIT COLUMN 
1125 t 15, AL INEOUT CALL PRINT ROUTINE 
1126 BALR 14,15 we 
1127 st 9,AQTBA STORE ITS ADDR IN ADDR Q TO BE ADDED 
1128 MVC 7h 109) 74) SET OWNER PQ(9) TO OWNER Q(4) 
1129 L 15,ASRAQ CALL SUBROUTINE ADO QUARRY 
1130 BALR 14,15 ee 
1131 WVI = 59) 4B*01001010° SET Q TO SEG, NO PP, SELF PRESERVE 
1132 MVC = 46 (249) p AMORT 342 SET COST TO PROCESS 
1133 c) ZONOUTQ4 GO TO ZONQUTOQS 
1134 WAPTF CLI PTPQF,x*01° WAS A PROCESSING PQ FOUND 
1135 BE EQwPP IF YES GO TO EQwPP 
1136 B ZONOUTOS OTHERWISE, GO TO ZONOUTQ4S 
1137 IWACSQ EQU @ (IT WAS A CRUSHED STONE QUARRY) 
1138 ™ 5(4),X*80° HAS Q(4) BEEN ZONED OUT 
1139 60 CSQWASZO 1F YES, GO TO CS O WAS ZONED OUT 
1140 © AT THIS POINT, O14) WAS NOT ZONED OUT 
1141 iT 5481044) LOAD LIFE OF Q{4) INTO REGS 
1142 LTR «55 IS LIFE 0 OR - 

1143 BC 12,CSQWASDP IF YES, GO TO CS Q WAS DEPLETED 
1144 B UPOTRS OTHERWISE GO TO UPDTR4 - 


LOC 


QOCEBE 
OCOEBE 
OCOEBA 
OCGEBE 
OCOECC 
OCCEC4 
OCCEC4S 
OCOECA 
OCOECA 
OCOECE 
OCOEC2 
OcoECcEe 
OCOECC 
OcoECE 
OCOEE2 
OCOEES 
OCcOEEe 
OCOEEE 
OCOEF2 
OCOEFE 
OCCEFA 
OOOEFE 


OCOFC2 


OCCFCE 
OCOFCE 
OCOFCC 
OCOFIC 
OCOFI4 
ocoFle 
OcoF1e 
OCCFIC 
OCCF22 
OCCF2E 
occr2é 
OCCF2Cc 
OCOF32 
OCOF3E 
OCCF3A 
OCCFIE 
OOOF42 
OCCF4E 
OCCF4A 


OCOF4E 
OCCFS2 
OcoFse 
OCOFSC 
OCOF5E 
OCCF64 
OCOFES 
OCCFEA 
OCOFEC 
CCOFTC 
OCCFT4S 
OCcoF78B 
OCOFTC 
OCOFT7E 
OCOFSBC 
OCOFS2 
OcoFrEeé 
OCCF8A 
OCOFeE 
OCOFS2 
OCOFSE 
OCOF9A 


OCOFIE 
OCCFA2 
OCOFAE 
OCOFAC 
GCOFEC 
OCOFE4 
occres 


OCGFBC 
OCOFCC 
OCOFCE 
OCOFCA 
ocoFroc 
OOOFD4S 
ocorce 
OCOFEC 
OCCFEE 
OCOFE2 
OCOFEE 
GCOFEC 
OCOFFC 
OCCFRE 
OCOFFA 
OCOFFE 
OC1C04 
ociccs 


INITIALIZATION 


OBJECT CODE 


504C 
58F0 
OSEF 
4TFC 


0203 


9108 
4780 
0203 
589C 
1299 
4T4C 
1949 
478C 
osco 
4770 
9180 
4710 
58BC 
5980 


474C 


0203 
4TFC 
5890 
4TFC 


92CC 
0203 
589C 
1299 
4740 
Cscc 
4780 
S5CO 
4770 
912C 
478C 
918C 
471C 


9201 
0203 
58FC 
CSEF 
0203 
S8FC 
OSEF 
1BéE 
5870 
5CéC 
506C 
586C 
1867 
1876 
1866 
5c6éC 
506C 
407C 
4ATC 
SATC 
5970 
4T2C 


507C 
5c90 
0201 
5890 
4TFC 
9501 
4770 


589C 
0201 
9223 
02c0 
94FC 
5090 
58FO 
OSEF 
9211 
023C 
48B9 
4EBO 
DEC3 
4889 
4EBC 
O&C3 
58F0 
OseF 


2000 
204€ 


C40A 
20cc 


40C5 
C138 
2CB4 
2Cé4 


C458 


C450 
4CC7 
C450 
9cc0s 
c450 
9cce 
90CC 


C450 


2CB4 
C458 
9034 
C41C 


23F3 
2104 
2C68 


C4F4 
4CCT 
C4TE 
9CC7 
C4EC 
9CCcé 
C4EC 
SCCE 
C4EC 


Zaks 
2CBO 
2034 


2CC4 
2038 


gcic 
2ccc 
C984 
9cic 


214C 
9cc8 
cecc 
9014 
2cc8 
2104 
C4EC 


2104 
2CC4 
C8CE 
9034 
C466 
233 
C138 


2CD4 
902E 
9005 
9cc? 
9CC6 
2098 
2028 


22C8 
2200 
cccc 
2cco0 
22F6 
cco2 
2cco 
22FC 
204C 


c98Cc 


20CC 


9ca7 


40CC 


213C€ 


9cc7 


sccc 


2CA4 


cs8cc 


C8CceE 


4CCT7 


25C7 


2CC06 


2006 


CONTROL SECTION 


ADORL 


037CC 
ccocs 


C37B4 


cooo7 


ecoos 


037e4 


C3AF3 
03804 


ccoo7 
ccoc? 
CCOC6 


CCOC6 


C3AF3 
c37e80 


037C4 


0138E 


C3AF3 


CO02E 
coocs 
ccoo?T 
coc06 


c39C8 
03900 


C39F6 


O39FC 


AOCR2 


03700 
03740 


QOECA 


01440 


ooBFs 
037C0 
03764 


OCcF18a 


OOF10 
ocoo7 
OOFLO 


OOF1O 
oco08 
ocooc 


OOF10 


acoco 
OOF1S 
00034 
OcECC 


0383C 
03768 


OCFB4S 
ocoo7 
OOF3E 


OCFAC 
OOFAC 


OCFAC 


occco 
03734 


O37A4 
03738 


00010 
037CC 
01444 
oco10 


03840 
ococs 
0138C 
OCOlL4S 
037C8 
03804 
OOFAC 


03804 
037C4 
0138C 
00034 
OOF26 


OOBFS 


03704 
O138E 


occo7 


03798 
03728 


03CO07 
occco 
037CO 
03706 
oco02 
03700 
03706 
0374C 


(BEGINIT) PAGE 22 
STMT SOURCE STATEMENT FOLAUG68 5/30/69 
1145 CSQWASZO EQU * (CRUSHED STONE Q@ WAS ZONED OUT) 
1146 st 4, APPTBM STORE ADDR OF PP TO BE MOVED 
1147 L 15, ASRAOEPP CALL ALLOWANCE ON EXISTING 
1148 BALR) 14,15 PROCESSING PLANT SUBROUTINE 
1149 B BEGSPCS GO TO BEGSPCS 
1150 CSQWASDP EQU * (CRUSHED STONE Q WAS DEPLETED) 

1151 MVC ADEPP(4).=F*°0° SET ALLOWANCE ON PP AT Q(4) =0 

1152 BEGSPCS EQU * (BEGIN CS SELF-PRESERVATION ROUTINE) 
1153 ™ 5(4),X*08" DOES OWNER WISH TO SELF PRESERVE 
1154 BZ ZONOUTO4 IF NOT, GO TO ZONOUTQ4 

1155 MVC POINT2(4),WGCCS SET DESTINATION = WGC CRUSH STONE 
1156 L 9,SQCH LOAD REGO WITH START Q CHAIN 

1157 CSQLOOP LTR 959 IS CONTENTS OF REGO NEG 

1158 BM CSQOHNMQ IF SO, GO TO CSQOHNMQ 

1159 cR 459 TS Q(4) THE SAME Q AS Q{9) 

1160 BE CSUPPTRO IF SAME Q GO TO CSUPPTRO 

1ré61 cLc Tle 4d TIO) IS Q19) OWNED BY SAME OWNER AS Q1(4) 
1162 BNE CSUPPTRO IF NOT GO TO CSUPPTRO 

1163 ™ 5(9),x°80° HAS Q(9) BEEN ZONED OUT 

1164 60 CSUPPTRO IF SO GO TO CSUPPTRO 

1165 L 11,8(0,9) LOAD LIFE Q(9) INTO REGL1 

1166 c 11412(0.9) COMPARE REMAINING LIFE WITH MAXIMUM 
1167 # YEARLY OUTPUT 

1168 BL CSUPPTRO IF LIFE LESS THAN 1 YEAR, GO TO 
1169 » CSUPPTRO 

1170 #& AT THIS POINT, THE QUARRY OPERATOR HAS MORE THAN 1 ACTIVE QUARRIES 
L171 ® THE NEW QUARRY WILL BE THE ONE WHICH WILL SUPPLY THE ZONED OUT 

1172 ® OR DEPLETED ONE AT THE LOWEST COST RATHER THAN THE WEIGHTED 

1173 © GEOMETRIC CENTER 

1174 CSQHAQ EQU * (CS Q OWNER HAS ANOTHER Q) 

1175 MVC POINT2(4) e014) SET POINT2 = QUARRY IN REG4 

1176 B CSQOHNMQ GO TO CSQOKNMQ 

1177 CSUPPTRO L 94521009) LOAD REGO WITH ADDR OF NEXT Q 

1178 B csoLooP GO TO CSsQLOOP 

1179 CSQOHNMQ EQU * (CRUSHED STONE Q OWNER HAS NO MORE QUARRIES) 
1180 MVE CSPQI,x*00" SET CS PQ INDICATOR TO 0 

1181 MVC COSTCMP1,LARPOSN SET COSTCMPL = LARGEST POSITIVE NO. 
1182 L 92SPQCH LOAD REGO WITH START PQ CHAIN 

1183 CSPQTEST LTR 929 1S CONTENTS OF REGO NEG 

1184 BM OSCSPQ IF YES GO TO DSCSPQ 

1185 CLC TOLe4)9 709) 1S PQ(9) OWNED BY SAME OWNER AS Q(4) 
1186 BE TESTCS IF YES, GO TO TESTCS 

1167 CLI T(9}_X*00° 1S THE LAND AVAILABLE 

1188 BNE UCSPQPTR IF NOT, GO TO UCSPOPTR 

1189 TESTCS ™ 6(9),x*20° 1S PQ(9) A CRUSHED STONE PQ 

1190 BZ UCSPQPTR IF NOT, GO TO UCSPQPTR 

1191 Te 6(9),X"80° HAS PQ(9) BEEN ZONED OUT 

1192 80 UCSPQPTR IF YES, GO TO UCSPQPTR 

1193 @ AT THIS POINT REG9 CONTAINS A CRUSHED STONE POTENTIAL QUARRY OWNED 


1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 


* BY THE SAME OWNER AS Q(4) AND IT HAS NOT BEEN ZONED OUT 


SET CS PQ INDICATOR TO 1 (A PQ FOUND 
SET POINTL = ADDR PQ(9) 

CALL SUBROUTINE DETERMINE DISTANCE 
ee 


SET PARAMETER FOR TRANSPORTATION CST 
CALL SUBROUTINE TRANSPORTATION COST 
ee 

CLEAR REG 6 

LOAD ESTABLISHMENT COST INTO REGT 
MULTIPLY BY ALLOWANCE ON Q(4) PP 

& DIVIDE BY 10 FOR ALLOWANCE 

LOAD ESTABLISHMENT COST INTO REG6 
SUBTRACT ALLOWANCE FROM EST COST 
LOAD NEW EST COST INTO REG? 

CLEAR REG6 

CONVERT EST COST TO PENNIES 

DIVIDE BY LIFE FOR AMORTIZATION COST 
STORE AMORTIZATION COST IN CSAMORTCS 
ADD COST TO MINE 

ADD TRANSPORTATION COST 

COMPARE COST WITH PREVIOUS LOW COST 
IF COST IS HIGHER, GO TO UCSPOPTR 


OTHERWISE SET PREVIOUS LOW COST TO PRESENT CST 


STORE NEW LOW COST IN COSTCMPL 
STORE ADDR PQ(9) IN ACSQTBE 


LAMORTCS(2),AMORTCS STORE AMORTIZATION COST IN LAMORTCS 


LOAD REG9I WITH ADOR OF NEXT PQ 
GO TO CSPQTEST 

WERE ANY PQ*S FOUND 

IF NOT, GO TO ZONOUTQ4 


@ AT THIS POINT THE PQ WHOSE ADDR IS IN ACSOTBE MUST BE ESTABLISHED 


MVI CSPQIT,X*"OL® 
MVC POINT1L(4)50(9) 
L 15,ASRDIST 
RALR 14,15 
MVC TRANSO(4) ,DISTX 
[U 15,ASRTRCST 
BALR) 14,15 
SR 606 
L 79161059) 
* 6, A0EPP 
0 6e=F°10" 
L 65161059) 
SR 607 
tR 716 
SR 696 
Ll 6,HUNDRED 
0) 658(0,9) 
STH 7, AMORTCS 
AH 79201009) 
A TeFIXPTCST 
Cc T,COSTCMPL 
BH UCSPQPTR 
° 
st 7eCOSTCMPL 
ST 9,ACSQTBE 
MYC 
UCSPQPTR L 92521099) 
8 CSPQTEST 
OscsPaQ cur CSPQI,x*ol* 
BNE ZONOUTQ4 
t 9, ACSQTBE 
MVC 46(299),LAMORTCS 
MVI 5(9),B*O00L00011" 
MVC T1159) 5704) 
NI 6(9),B°11111100° 
st 9,APQTBD 
t 15,ASRDPQ 
BALR 14,15 
MVE CARCONTsX*11° 
MVC 
LH 11,019) 
CvbD 11,0W 
—6 
LH 11,2(9) 
CcvD 11,0W 
ED OUTLINE+51(4) ,0W+6 
t 15, AL TNEOUT 
BALR 14,15 


OUTLINE+20(L *MDPQAQ) ,MDPQAQ 


LOAD REGO WITH ADDR PQ TO BE EST 

SET NEW AMORTIZATION COST 

ESTABLISH PQ(9) AS A CS QUARRY 
SET OWNER PQ(9) TO OWNER Q(4) 

CHANGE PQ INDICATOR TO O 

STORE ADDR PQ TO BE DELETED 

CALL SUBROUTINE DELETE PQ 

ee 


WRITE & SKIP 1 

MOVE MESSAGE TO OUTLINE 
LOAD ROW INTO REGLL 

CONVERT TO DECIMAL 


OUTLINE*+45(4),0W+6 EDIT ROW 


LOAD COL INTO REGILL 
CONVERT TO DECIMAL 
EDIT COLUMN 

CALL PRINT ROUTINE 


IWITIALTZAVION CCNTROL SECTION (BEGINIT) PAGE 23 


LOC OBJECT CODE ADORL ADOR2 STMT SOURCE STATEMENT 3 FOLAUG68 5/30/69 
OO1CCA 5090 2084 - 03784 1244 ST 9,AQTBA STORE ADOR QUARRY TO 8E ADDED 
QOICCE 58FC 2014 03714 1245 t 15,ASRAQ CALL SUBROUTINE ADD QUARRY 
OC1C12 OSEF 1246 BALR 14,15 me 
OC1014 47FC C138 GOBFS 1247 8 ZONOUTQ4 GO TO ZONOUTQ4 
oc1o1e 1248 QHAQ EQU ® {OWNER HAS ANOTHER QUARRY) 
Oco1cleé 9200 C8éO 01320 1249 MVI IPCOUNT,X*00* SET TPCOUNT = 0 
OC1CIC 9200 C8él1 01321 1250 MVI UIPCOUNT,X*00° SET UIPCOUNT = 0 
©01C2C 0257 C864 C863 01324 01323 1251 MVC IPCHAIN(88) >, IPCHAIN-1 SET IPCHAIN AND UIPCHAIN = -1 
OcC1C2é 5870 Ce5é 01318 1252 L Ts ATPCHAIN LOAD REGT WITH ADDR IP CHAIN 
OC1C2A 5880 CasC o1ste 1253 L 8,AUTPCH LOAD REGB WITH ADDR UIP CHAIN 
OC1C2E 1949 1254 OHAQLP cR 499 IS Q(4) SAME Q AS Q(9) 

OCLC3C 4780 C5E6 010A6 1255 BE UPOQPTRI IF YES GO TO UPQPTRO 
001034 9140 9005 coocs 1256 ™ 5(9),X"40° IS IT A SEG QUARRY 
OC1C38 478C CS5E6 O10A6 1257 BZ UPQPTRI IF NOT GO TO UPQPTRI 
0C103C DSCC 4CC7 9CC7 CCOO7 OCOO? 1258 CLC Tl194)e719) IS Q(9) OWNED BY SAME OWNER Q(4) 
OC1042 4770 C5Eé 01046 1259 BNE UPOPTRI IF YES, GO TO UPQPTRO 
Oc1C4é 911C 9CC5 ccocs 1260 ™ 5(9),K*10° 1S Q(9) AN INTERMEDIATE POINT 
OC104A 471C C588 01078 1261 80 CANPC IF YES, GO TO CANPC 
OCIC4E 9104 9CO5 ccoos 1262 DQUIP ™ 519),X"04" DOES Q(9) USE AN INTER PT 
O01C52 4780 C5E6é 01046 1263 BZ UPQPTRI IF NOT GO TO UPQPTRIO 
1264 « AT THIS POINT 0(9) USES AN INTERMEDIATE POINT 
OO1C5é6 1BEE 1265 SR 656 CLEAR REG6 
OC1C5e 436C Ceél 01321 1266 Ic 6 ,ULPCOUNT INSERT UIPCOUNT INTO REG6 
OCICS5C 4160 6COl1 Occol 1267 LA 6911006) AOD 1 TO UIPCOUNT 
OC1C6C 426C C861 01321 1268 STC 6,UITPCOUNT STORE UPDATED COUNT 
@C1Cé4 556C C984 01444 1269 cu 69=F*10° DO WE HAVE MORE THAN 10 Q*S IN CHAIN 
OC1Cée 472C C5F4 01084 1270 BH TMEITCH IF YES, GO TO TMEITCH 3 
ocicéc 5C90 8Cccc ococo 1271 st 59,0108) STORE ADDR Q(9) IN UIP CHAIN 
QOLC7TC 418C 8C04 00004 1272 LA 8,4(0,8) POINT REGS AT NEXT LINK IN UIP CHAIN 
OC1C74 47FC C5EE O10A6 1273 8 UPQPTRI GO TO UPQPTRI 
ocic7s 9101 9CC4 C0004 1274 CANPC ™ 4(19).X"O1* CAN PROCESSING CONTINUE 
CCLC7C 471C C5C4 01084 1275 BO uUPTPC IF YES GO TO UPIPC 
O01cec 47FC C58E O1O4E 1276 B DQUIP OTHERWISE GO TO DQUIP 
1277 # AT THIS POINT, Q(9) IS AN INTERMEDIATE POINT 
OC1C84 1866 1278 UPIPC SR 696 CLEAR REG 6 
OC1CeE 436C C86EC 01320 1279 1c 6, IPCOUNT INSERT IP COUNT INTO REG6 
OC1CBA 41EC 6COl ocool 1280 LA 6511056) ADD 1 TO IPCOUNT 
QOLCBE 426C CBEC 01320 1281 STC 6, TPCOUNT STORE UPDATED IP COUNT 
OC1C92 556C C984 01444 1282 cL 6e=F°10° DO WE HAVE MORE THAN 10 ENTRIES 
OC1LO9E 472C C5F4 O10B4 1283 BH TMETTCH IF YES GO TO TMEITCH 
Oc1iC94 S509C 7CCC OCO0O0 1284 St 9,0(0,7) STORE ADDR Q(9) IN IP CHAIN 
OCLO9E 417C 7CC4 occcs 1285 LA Te4(097) POINT REG7T AT NEXT LINK IN IP CHAIN 
OCICA2 47FC C58E O104E 1286 B oQUuIP GO TO OQUIP 
O@CICAE 5890 9034 00034 1287 UPQPTRO L 99521099) POINT REGO AT NEXT Q IN CHAIN 
OC1CAA 1299 1288 LTR 919 TS ADDR NEG 
OCLCAC 4720 C56E O102E 1289 BP OHAQLP IF NOT, WE ARE NOT DONE. GO TO OHAQLP 
CO1CBC 47FC Cé3C O10FO 1290 B OHAQS OTHERWISE, GO TO OHAQS 
oc1ce4 1291 TMEITCH EQU * (TOO MANY ENTRIES IN TEMP CHAIN) 
OC1CB4 0238 22E7 2462 C3I9FT 03B62 1292 MVC OUTLINE+30(L°M37),M37 MOVE ERROR MESSAGE TO OUTLINE 
CCICBA SBFC 2C04C 0374C 1293 t 15,ALTNEOUT CALL OUTPUT ROUTINE 
OC1ICRE OSEF 1294 BALR 14,15 Wu 
1295 CLOSE (INDCB,,OUTOCB) 
OCc1CccCc 1296¢€ CNOP 0,4 
OCc1CcCC 451C Cécc OLOCC 1297¢# BAL 1,##12 BRANCH AROUND LIST 
ocicc4 co 1298+ oc AL1(0) OPTION BYTE 
ociccs cooec4 1299¢ oc AL3(INOCB) OCB ADDRESS 
ocioce 6c 1300¢ oc AL1(128) OPTION BYTE 
OC1CCS CCO9A4 1301+ oc AL3(OUTOCB) OCB ADDRESS 
OC1OCC CA14 1302¢ SVC 20 ISSUE CLOSE SVC 
1303 REEXIT 
OCICCE 1810 1304¢@ tr 1,13 
Ocicce 5800 OCC4 OCCOS4 1305¢ L 13541513) 
OC1CC4 1306¢ CNOP 04 
OCICL4S 47FC Cé1C O100C 1307+ 8 #+8 BRANCH AROUND SP4LV 
ocicceé co 1308+ oc AL1(0) SUBPOOL VALUE 
OCcLOLS CCC048 1309 oc AL3(72) LENGTH 
OCicCC S5éecC Cél8 01008 1310¢ t 0,#-4 LOAD SP AND LV 
OCICEC CAOCA 1311¢ Svc 10 ISSUE FREEMAIN SVC 
OCICE2 98EC DCOC acocc 1312¢ LM 14912¢12(13) RESTORE THE REGISTERS 
OCICEé 92FF OCCC coocc 1313+ *VI 12(13),xX*FF*® SET RETURN INDICATION 
QO1CEA 41FO CCCO Ococd 1314¢€ LA 15,0(0,0) LOAD RETURN CODE 
OCICEE CTFE 1315¢ BR 14 RETURN 
OC1CFC 1316 OHAQS EQU « (CHAINS ARE SET, DETERMINE STRATEGY) 
OC1ICFC 9101 4005 ccoos 1317 ™™ 5(4).X*O1* WAS Q(&) A PROCESSING PLANT 
OC1OF4 4710 C726 OLLE6 1318 80 Q4wPP IF YES, GO TO Q4wPP 
1319 # AT THIS POINT, Q(4) WAS NOT A PROCESSING PLANT 
OCICFS 9104 4CC5 ccoos 1320 ™ 5(14),X°04* WAS Q(4) USING AN INTERMEDIATE POINT 
OOLOFC 4780 CéF8 01188 1321 BZ Q4NPPNIP IF NOT, GO TO QJNPPNIP 
oo1ice 784C C988 01448 1322 LE 45=X*46FFFFFF® SET FLT PT REG4& = LARGE NO 
CC11C4 02C3 C8CO 2C6C 01380 03760 1323 MVC CLOSIP(4),MINONE SET CLOSIP = -1 
OOXV1CA 02032 2080 4CCC C37BO OCCCO 1324 MvC POINT1(4),0(4) SET POINT1 = Q(4) 
OC1l1lI1C 1688 1325 SR 8,8 CLEAR INDEX REGS FOR INDEXING 
OCIl1l2 5898 C864 01324 1326 SDIPLP L 9, 1PCHAIN(8) LOAD ADOR INTER PT INTO REGO 
oclilé 1299 1327 LTR 959 ARE WE DONE WITH ALL IP*S 
Q01118 4740 C680 01140 1328 BM CIPD IF YES GO TO CIPO 
OC1VIC 0203 2084 SCCC 037A#4 OOOCO 1329 MVC POINT2(4),0(9) SET POINT2 = Q(9) 
OCl122 S8FO 2034 03734 1330 t 15,ASROIST FIND DISTANCE Q(4) TO Q{(9) -- 
OO1L2é OSEF 1331 BALR) 14,15 CALL SUBROUTINE DIST 
Q01128 7820 2CA4 O37A4 1332 LE 2,DISTX LOAD DIST INTO FLT PT REG2 
OcC112C 3924 1333 CER 294 IS DISTANCE Q(4) TO Q(9) SHORTER 
1334 @ THAN PREVIOUS SHORT 
OC1l12E 4720 Cé78 O11L38 1335 BH CNIP IF NOT, GO TO CNIP 
@Ca132 5090 C8Co 01380 1336 sT 9,CLOSIP STORE ADOR OF IP IN CLOSIP 
001136 3842 1337 LER 492 STORE NEW SHORT DISTANCE IN REG4 
OCR13€ 4180 8004 0c004 1338 CNIP LA 8»4(0,8) INCREASE INDEX REGS TO POINT AT 
1339 «# NEXT INTERMEDIATE POINT IN CHAIN 
OOLI3ZC 47FO C652 01112 1340 B SDIPLP GO TO SOIPLP 
00114C 1341 CIPD EQU * (CLOSEST INTER PT DETERMINED) 


OOLISC 0503 C8CO 20E0 C1380 03760 1342 cLc CLOSIP(4),MINONE WERE ANY INTERMEDIATE POINTS FOUND 


toc 


OC1146é 
OC1I4A 
OCILL4SE 
0C1154 
oc1i1se 


Oc11séA 
OCL1I5E 
0C1162 
OCT1EE 
OO1léA 
Oc117c 
ocil17¢c 
OC1174 
ocli7e 
OCLITA 
OCLITE 
6c11e4 
oo1lee 
00118C 
0C1192 
Oc119é 
OO1L9A 
Oci1ac 
OC1LIA4 
OOLLAE 
OCLIAA 
OCLLAE 
0011862 
oc1164 
oclilee 
oclise 


OCcL1EC 
0c11CC 
Oc1liIc4 
oc1icé 
OCLICA 
OOLICE 
0C1102 


OC1ICE 
Oc1Licc 
OCcl1E2 
Oclicé 
OCLIEE 
OCLIEA 
OCLIEE 
OCLIF2 


OCLIFE 
OCLIFE 


OCLIFA 
OCLIFE 
0C12C2 
oci2c4 
oc12cs 
oc12cc 
oc12ic 
OCc1214 
OCL21A 
00122C 


0c1224 
0C1224 
0ci228 
oci22c 
6¢6123C 
001232 
001236 
OC1234A 


OC124C 


001244 


001246 
001248 
00124C 


00125C 
0C1254 
0C1268 
Oc1asc 
OC126C 
001284 
OCL2EA 
00126C 
oo1z70 
Oo1R76 


OO1L2Z7A 
Oc127C 


INITIALIZATION 


OBJECT CODE ADDR1 


4780 
9202 
0203 
58F0 
OSEF 


9501 
477C 
589C 
924E 
0200 


5090 
58FO 
OSEF 
9211 
023C 
4889 
4EBO 
DEC3 
48BS 
4EBC 
0E03 
58FO 
OSEF 
94FE 
5090 
58FO 
OSEF 
4TFO 


9204 


5040 
58FO 
OSEF 
9501 
4770 
5690 
924A 


0200 
0201 
47FO 


911¢ 
4710 
9101 
47T1C 


9205 


5040 
58FC 
OSEF 
9501 
477C 
589C 
9248 
0201 
o2cc 
47TFO 


9207 
5040 
5eF6 
OSEF 
9501 
4770 
0503 


474¢ 


4TFO 


9101 
4780 


9102 
47€0 
94FC 
47FC 
766C 
0203 
1688 
5080 
0203 
5898 


1299 
4740 


C138 
23FC 
2100 
2044 


23F1 
C138 
20F8 
9cc5 
9co7 


2098 
2C28 


22C8 
2200 
cccc 
2cco 
22F6 
oco2 
2cco 
22FC 
204C 


9C0E 
2084 
2014 


C138 
23FC 


21¢c 
2044 


232 
C138 
2CFC 
90cs 


9cc7 
902E 
CéRC 


4ccs 
c7es 
4CC4 
C764 


23FC 


210C 
2044 


23F 1 
C138 
20F4 
9c05 
9C2E 
g9co7 
C680 


23FC 
21¢c0 
2044 


23F1 
c138 
2104 


Ccr4c 


C232 


4C04 
C7ac 


4005 
Cil6é 
4005 
c268 
c988 
cece 


c8c4 


20B4 
caso 


G?TFC 


Q3AFO 


c8co 03800 


C3AFL 


coo0s 


4007 Ccoo0o7 


c39C8 


25C7 03900 


2CC6 C3I9F6 


2CC6 C39FC 


ccocé 


C3AFO 


O3AF2 
coocs 
4CC7 COOc? 


20F2 COO2E 


ccocs 


Ccoc4 


C3AFO 


O3AF1L 


ccocs 
20EA COO2E 
4CC7 CCOO7 


C3AFO 


CIAFL 


2108 C3804 


C0004 


coo05s 


coo0s 


20€0 01386 


2088 03784 


CONTROL SECTION 


ADOR2 
OOBFS 


01380 
03744 


OOBFS8 
O37F8 


ocoo7 


03798 
03728 


03C0O7 
occco 
03700 
03706 
60002 
03700 
03706 
0374C 


03784 
03714 


OOBFS 


03800 
03744 


OOBFS 
O37FC 


ocoo7 
O37F2 
01170 
01248 


01224 


03800 
03744 


OOBFS 
O3TFS 
O37EA 


00007 
0117¢ 


63800 
03744 


OoBFS 
03808 


0120C 


OOCF2 


01260 


00806 


00048 
01448 
03760 


01384 


03768 
01350 


o12BCc 
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STMT SOURCE STATEMENT : FOLAUG68 5/30/69 
1343 BE ZONOUTO4 IF NOT, GO TO ZONOUTQ4 
1344 MVI STRATEGY ,X°02°* SET STRATEGY = 2 (IP ONLY) 
1345 MVC Q1Q(4),CLOSIP SET QIQ = CLOSEST INTER POINT 
1346 L 15eASRPQCST CALL SRPQCOST TO FINO A PQ 
1347 BALR 14,15 WHICH WILL SUPPLY THE INTERMEDIATE 
1348 @ POINT CLOSEST TO Q({4) AT THE 
1349 « LOWEST COST 
1350 CLI PTPQF»,X*01°* WERE ANY PQ*°S FOUND 
1351 BNE ZGNOUTO4 IF NOT, GO TO ZONOUTQS 
1352 iE 9, ADDRPQ2 LOAD LOWESTBCOST PQ INTO REG9 
1353 MvI 5(9),B*O1L001110° SET PQ(9) TO A SEG PQ, USING AN IP 
1354 MYC TWl1Ls9Vo 714) SET OWNERSHIP TO SAME AS Q(4) 
1355 DPQAQ EQu * (OELETE PQ, ADD Q) 
1356 st 9,APQTBD STORE IN ADDR OF PQ TO BE DELETED 
1357 L 15eASROPQ DELETE IT (CALL SUBROUTINE DELETE Q) 
1358 BALR 14,15 ‘td 
1359 MvI CARCONT,X*11° WRITE & SKIP L 
1360 MYC OUTLINE+20(L*MDPQAQ) ,MDPQAQ MOVE MESSAGE TO OUTLINE 
1361 LH 11,0(9) LOAD ROW INTO REGLI 
1362 cvD 11,0W CONVERT TO DECIMAL 
1363 ED QUTLINE#45(4),0W#6 EDIT ROW 
1364 LH 11-209) LOAD COL INTO REGI1L 
1365 CvD 11,0W CONVERT TO DECIMAL 
1366 i) OUTLINE4+51(4).0W#6 EDIT COLUMN 
1367 L 15, AL TNEOUT CALL PRINT ROUTINE 
1368 BALR 14915 Ht 
1369 NI 619),X°FE® SET PQ INDICATOR TO 0 
1370 sT 9,AQTBA STORE 9 ITN ADDR OF Q TO BE ADDED 
1371 L 152 ASRAQ ADD Q@ (CALL SUBROUTINE ADD Q) 
1372 BALR 14,15 LK 
1373 8 ZONOUTQ4 GO TO ZONOUTQ4S 
1374 Q4NPPNIP EQU * (Q(4) NOT A PP, NOT USING A IP) 
1375 wvI STRATEGY,X*04° SET STRATEGY = & (FIND LOWEST COST 
1376 # NON-PROCESSING PQ TO Q(4) 
BST st 4,019 STORE ADDR Q(4) IN QIQ 
1378 L 15,ASRPQCST FIND LOWEST COST NON-PROCESSING PQ 
1379 BALR 14,15 os 
1380 cui NPTPQF,X*O1* WERE ANY FOUND 
1381 BNE ZONOUTQ4 IF NOT GO TO ZONOUTQ4 
1382 L 9,ADDRPQ3 SET REGO = ADOR Q TO BE ESTABL 
1383 MVI 5(9),B8*01L001010° SET PQ(9) TO A SEG Q, SELF PRESERVE 
1384 ® WITH NO PROCESSING PLANT 
1385 MVC Tile) oTK4) SET OWNER = OWNER Q(4) 
1386 MVC 461259), AMORT 342 SET NEW AMORTIZATION COST 
1387 8 DPQAQ GO TO DPQAQ 
1388 Q4wWPP EQU ° (Q(4) WAS A PROCESSING PLANT) 
1389 ™ 5(4),X*10° WAS Q(4) BEING USED AS AN IP 
1390 B80 QS4UAIP IF YES, GO TO Q4UAIP 
1391 ™ 4(4),x"OL® CAN PROCESSING CONTINUE 
1392 BO PCANC IF YES, GO TO PCANC 
1393 @ AT THIS POINT, Q{4) IS NOT BEING USED AS AN INTER PT AND PROCESSING 
1394 © CAN NOT CONTINUE 
1395 Q4PCNCO EQU ® (Q(4) PROCESSING CAN NOT CONTINUE) 
1396 MVI STRATEGY,X*05°* SET STRATEGY = 5 (FIND LOWEST COST 
1397's PQ TO Q(4) WITH A PP AT NEW QO 
1398 st 4,010 STORE ADDR Q(4) IN QIQ 
1399 t 15,ASRPQCST CALL SRPQCOST 
1400 BALR 14,15 Hd 
1401 CLI PTPOF,X*O1? WERE ANY PQ*S FOUND 
1402 BNE ZONOUTO4 tf NOT GO TO ZONOUTOQ4S 
1403 EWPP [b 9, ADORPQL LOAD REGO WITH LOWEST COST PQ 
1404 KVI 5(9),B°O1001011° EST AS A SEG Q WITH A PP,SELF PRESER 
1405 MVC 461209) sAMORT1*2 SET AMORTIZATEON COST 
1406 MVC TU1Le9d 9 714) SET OWNER PQI9) = OWNER Q(4) 
1407 8 OPQAQ GO TO DPQAQ 
1408 « AT THIS POINT, Q(4) IS NOT BEING USED AS AN INTER PT AND PROCESSING 
1409 © CAN CONTINUE 
1410 PCAWC EQU ® (PROCESSING CAN CONTINUE) 
1411 VI STRATEGY,R*O7® SET STRATEGY = 7 
1412 st 4,019 STORE AOOR Q(4) IN QIQ 
1413 t 15,ASRPQCST CALL SRPQCST 
" 1414 BALR 14,15 os 
1415 cLI PTPQF»K*OL® WERE ANY PQ*°S FOUND 
1416 BNE ZONOUTQ4 iF NOT, GO TO ZONOUTQ4 
1417 cic COSTCMP1LE¢4),COSTCMP2 COMPARE COST BUILDING A PP AT THE 
1418 « NEW SITE WITH COST USING 0149 AS AN 
1419 « INTERMEDIATE POINT 
1420 BL EWwPPp IF COST USING PP AT NEW SITE IS 
1421 ® LOWER, GO TO EuPP 
1422 © OTHERWISE, ESTABLISH NEW Q AS A Q USENG Q44) AS AN INTERMEDIATE PT 
1423 8 EQuwuIP GO TO EQuWUIP 
1424 © AT THIS POINT, Q(4) WAS @EING USED AS AN INTERMEDIATE POINT 
1425 Q4UAIP EQu ° (014) USED AS AN INTER POINT) 
1426 ™* 414) ,xK°OL? CAN PROCESSIWG CONTINUE 
1427 BZ Q41PPCNC : IF NOT, GO TO Q&T PPCHC 
1428 © AT THIS POINT, PROCESSING CAN CONTINUE - IT WILL REMAIN AS AN IP 
1429 Ts 5(4)9X*02° WAS IT BEING QUARRIED 
1430 BZ UPDTRS IF NOT, 60 TO UPDTR4S 
1431 NI S(4)eB°LLILilols® SET Q IMOICATOR TO O 
1432 8 PRINTIPM GO TO PRINTIPN 
1433 Q4IPPCNC LE 6, =X" 46FFFEFF® SET FLT PT REG6 = LARGE NO 
1434 MVC ASOUIP (4), MI1NONE SEY ASOUIP = ~1 
1435 SR 8,8 CLEAR REGS 
1436 st 8, SUMAMT SET SUM AMOUNT = 0 
1437 MYC POINT2(4) »WGCPSG SET POINT 2 = WGCPSG 
1438 PCNCLP t 9,UITPCHAIN(8) LOAD REGO WITH ADDR PQ THAT USES AN 
1439 ® INTERMEDIATE POINT 
1440 LTR 99 IS ADDR NEGATIVE 
1441 BM WEREAF IF YES, GO TO WEREAF 


Loc 


001280 
0c1286 
OCL2EGA 
oci28c 
00129C 
001292 
OC129€ 
Oc129A 
0c129C 
OC12AC 
OC12A4 
Oo1z2a8 
6C12AC 
00128C 


0012864 
CC12B6é 


OC126A 
oc12ec 
oc12cc 
0c12c4 
oo12ce 
oci2cc 
OCc1L2ceE 
oc12CcC 
OCc12€2 
OC12Cé 


Oc12CA 
CC12CE 
OC12E2 
OCI2EE 
OC1L2EC 
OC12FC 
OC12F4 
OC12FA 
OCL2FE 
0C13C2 
0013C8 
OC13CE 
CC1312 
001314 
oci31e8 
OC131C 
Cc132c 
0C1321 
0C1322 
0C1323 
0C1324 
oc135c 
00137C 
00o138C 
0C1384 
cc13e8 
oc138C 
OC13eE 


0c139¢ 
001304 
Oc14C7 
OC144C 
OC144C 
OC1L444 
0C1448 


INITIALIZATICN CONTROL SECTION (BEGINIT) 


OBJECT CODE ADDR1L ADDR2 
0203 2080 9€00 03780 OCccco 
58FO 2034 03734 
OSEF 

7820 2044 O37A4 
3962 

4740 C70C 0129C 
s509c cace 01388 
3862 

5870 C8C4 01384 
5a70 9CC8 ocoos 
5070 C8C4 01384 
4180 80C4 0c004 
47FC CTB6 01276 
5890 C8Cea 01388 
1299 

474C C736 OLILF6 
1866 

5870 901C oco10 
5cCé0 20CC 037CC 
5060 C984 01444 
58éC 9C1C 00010 
1667 

1876 

1Bé6 

5C60 214C 03840 
5060 C8C4 01384 
4070 902E Oo0o2E 
9258 9005 ccocs 

9211 22C8 039C8 

0219 220C 249E€ C39CD O3B9E 
48B9 CCCC occco 
4EBC 2CCC 03700 
DEO3 22EC 2C06 C3I9EC 037C6 
48B9 CCO2 occo2 
4EBO 2CCC 037CO0 
OEC3 22F2 2C06 O39F2 03706 
0243 22F7 C800 C39F7T 01390 
58FCO 204C 0374C 
OSEF 

47FO C138 OOBFA 
CCCO1324 

CCCO135C 

FF 

FEF 


O506€640C BC 1E240 
C1E240C14009C5E2 
Cé604é030306E6C905 


cocecccc 
COCCCCCA 
46FFFFPF 


STMT 


1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 


1502 
1503 
1504 
1505 
1506 
1507 
1508 


SOURCE STATEMENT 


MYC 
L 
BALR 
LE 
CER 
BL 
st 
LER 
ARL L 
A 
st 
LA 
8 
WEREAF L 
* 
LTR 
BM 


e AT THIS POINT THERE IS AT LEAST 1 QUARRY REQUIRING 
* [TS ADDR(OR THE ADDR OF THE Q REQUIRING AN 
# IS IN ASOUIP 


SR 


ATPCHAIN 
AUIPCH 
TPCOUNT 
ULPCOUNT 


IPCHAIN 
UIPCHAIN 
OLPTWGC 
CLosiPp 
SUMAMT 
ASOUIP 
AMORTCS 
LAMORTCS 
M43 


HL 
H2 


POINT1(4),0(9) 
15,ASRDIST 
14,15 
2,D1STX 
692 

ARL 
9,ASDUIP 
692 

7. SUMAMT 
7781009) 
7, SUMAPT 
8,410.8) 
PCNCLP 
9,ASOUIP 


929 
Q4PCNCO 


656 
75161029) 
6,A0EPP 
6=F*10° 
6,1610,9) 
657 

796 

656 
6,HUNDRED 
6, SUMAMT 


7¢46(0,9) 
5(9),B°01011011° 
CARCONT,»X*11°* 
OUTLINE#20(26) ,M42 
11,0(9) 

11,0W 

OUTL INE#35(4),DwW+é 
11,2(9) 

11,0W 
OUTLINE#41(4) ,DW+6 
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FOLAUG68 5/30/69 
SET POINT1 TO ADOR PQt9) 

FIND DISTANCE PQ(9) TO WGCPSG 

oe 

STORE DIST IN FLT PT REG2 

IS DISTANCE SHORTER THAN PREV SHORT 
IF NOT, GO TO ARL 

STORE ITS ADOR IN ASDUIP 

STORE NEW SHORT DIST IN FLT PT REG6 
LOAD REG? WITH SUM AMOUNTS 

ADD REMAINING LIFE Q(9) TO SUMAMT 
STORE UPDATED SUM 

ADD 4 TO INDEX REGS 

GO TO PCNCLP 

LOAD ADOR CLOSEST Q USING AN IP 
INTO REGO 

WERE ANY Q*S FOUND 

IF NOT GO TO Q4PCNCO 

AN INTER PT. 

IP CLOSEST TO THE WGC) 


CLEAR REG6 

LOAD ESTAB COST INTO REG? 

MULTIPLY BY ALLOWANCE ON PP IN Q(4) 
AND DIVIOE BY 10 

LOAD EST COST INTO REG6 

SUBTRACT SAVINGS 

LOAD UPDATED EST COST INTO REG7 
CLEAR REG6 

CONVERT EST COST TO PENNIES 


DIVIDE BY SUM AMOUNTS IN AL Q°S 
USING AN IP 
STORE AMORTIZATION COST IN Q(9) 


SET Q9 TO AN INTER POINT 

SET CARRIAGE CONTROL CHARACTER 
MOVE MESSAGE TO OUTPUT FIELD 
LOAD REG11 WITH ROW Q(9) 
CONVERT TO DECIMAL 

EDIT ROW 

LOAD REGI1 WITH COLUMN Q(9) 
CONVERT TO DECIMAL 

EDIT COLUMN 


OUTLINE+46(L°M43) .M43 


15, AL TINEOUT 
14,15 
ZONOUTQ4 
A(TPCHAIN) 
A(UTPCHAIN) 
x 

x 

X°FFE 

X*FFS 

1L1F 

LIF 


2 eS te Vim. Yabo Vibe] 


CALL OUTPUT ROUTINE 


GO TO ZONOUTQ4 


C*NOW HAS A PROCESSING PLANT AND WILL BE USED AS AN INTEX 


RMEDLATE POINT® 


C*AS A RESULT OF ACTIVITIES OF THE PREVIOUS YEAR, THE® 
C*FOLLOWING CHANGES ARE MADE IN THE GRID CONFIGURATION® 


=F°or 
=F*10# 
=X" 46FFFFFFE 


SSHSSHRSSHSHOTKLELSHSHHHHKSSHSSHSHSSHSHSSHHSHHHSSOHHESESSSSSESSOHOHCHBELESEE 


LOC 
OCL45C 


O0C145C 
CCL45C 
oc3a7cc 
CC1452 
001454 
oc14se 
OCc1L45C 
OC146C 
OC1L4E4 
OC14Eé€e 
OC14EC 
aci47c 
0C1474 
oci47e 
CC1L47C 
oci4ec 
OC14e4 
cci4ee 
oc14ac 
Oci4ec 
CC14BE 
0C1492 
oc1498 
OC14SC 


OC14SC 
OC14AC 
OC14A4 
OC1L4SAE 
OC14AA 
OCI4AE 
0C148C 
Cc14eC 
OC1486 
0C148C 


cc14cc 
CC14C4 
oci4ce 
CC14CC 
Cc14ec 
CC14C2 
ec14ceé 
CCL4CA 
0C14CC 
CCL4CC 
OC14TE 
OC14E2 
OC14E¢ 
CC14EA 
CC14EC 
OCI14EE 
OC14F2 


OC14F4 
OCI4FE 
OCL4FC 
oo1see 
Ocis5c4 
ocisce 
ec1scc 
Oci51C 
OC1514 
ocisie 
OC151C 
0c162C 
0C1522 
0C 1526 
OC1S2A 
OC152E 
001532 
001536 


OC153A 
OCLS3E 
COIS3E 
OC1L54C 
CC1544 
oci54se@ 
OC1L54C 
OC1S5C 
0C1554 
oc1isse 
OCLSSC 
OC156C 
001564 
OCLSEE 
OCL564 
OCL5EE 
Oc1572 
OC157¢é 
GCL57A 
OCLS7E 
oc15e2 
CC1584 
ocisee 


CATA PROCESSING CONTROL SECTICN (MINEOP) 


OBJECT CODE ADDR ACOR2 STMT SOURCE STATEMENT 

1510 MINEOP CSECT 

L511 ENTRY SRFLCQ 

1512 USING #,12 
1LacF 1513 LR 12,15 

1514 USING COMMON, 2 
1677 1515 SR Ty7 
507C 219C 0389C 1516 ST 7,YCPSG 
SC7C 21AC 038A0 1517 : st Ty YCUPSG 
5070 21A4 03844 1518 st 7,YCCS 
507C 21A8 038A8 1519 ST 7+ YTMPSG 
5C7C 21AC O38AC 1520 ST 7+ YTMUPSG 
5C7C 218C 03880 1521 st Ty¥TMCS 
5C7C 2184 03884 1522 ST 7,YTPSG 
S5c7C 2188 03888 1523 st 7+ YTUPSG 
507C 21RC O38fC 1524 ST 7+YTCS 
so7c 21CC 038CO 1525 Sst 7+YTRCST 
5C7C 21C4% 038C4& 1526 at 7,YTONSOUT 
5c7co 21Cce@ 03e8C& 1527 ST 7eYCOUTS 
S2CC C484 01804 1528 MVI CHANI,X*00* 
5e5C 2c7Cc 03770 1529 L 5_SWIPCH 

1530 BEGUSE EQU « 
1255 1531 LTR 525 
474C CC4C 0149C 1532 AM GTCEVCH 
0203 C44C 503C C1890 0003C 1533 ¥V¥C NEXTWIP(4),60(5) 
4TFC Coec OL4EC 1534 B CONTWIP 


1535 GIDEVCH €EQU * 
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(DATA PROCESSING SECTION) 


CLEAR REGT 
SET YEAR COST PSG =0 
od UPSG =0 
Li} cS =0 
SET YEAR TON-MILES PSG =0 
an UPSG =0 
ae CS =0 
SET YEAR TONS PSG =0 
ee UPSG 
if cs =0 


SET YEAR TRANSPORTATION COST =O 
SET OUTSIDE TONAGE =0 


SET CHANE = O (WIP CHAIN) 
LOAD REGS WITH START WIP CHAIN 


ARE WE DONE WITH WIP'S 

IF YES. GO TO GTOEVCH 

UTHERWISE, STORE AOOR NEXT WIP IN CH 
AND GO TO CONTWIP 


1536 ¢ AT THIS POINT WE ARE DONE WITH WIP CHAIN. WE MIUST NOW INVESTIGATE 
1537 @ AL CEVFO'S WHICH WILL BECOME WIP*S DURING THE PRESENT YEAR 


SET CHAIN I = 1 (DEVFO CHAIN) 
LOAD REGS WITH START DEVFO CHAIN 
ARE WE DONE WITH DEVFO'S 

IF NOT, GO TO NENDPER 

OTHERWISE, GO TO ENDPER 


SET NEXTDEV = ADOR NEXT DEVFN 
WILL DEVFO START DURING PRESENT YEAR 
IF NOT, GO TO UPOEVPTR 


SET DEVFO INDICATOR = 0 

SET WIP INDICATOR = 1 

STORE ADDR OF DEVFO TO BE DELETED 
CALL DELETE DEVFO 

oe 


STORE ADOR OF WIP TO BE ADDED 

CALL SUBROUTINE ADD WIP 

ee 

(CONTINUE WIP PROCESSING) 

CLEAR REGB 

INSERT YEARS TO COMPLETION WIP(5) 
STORE WIP(5) IN WIPBE 

CALL PRESENT PERIOD USAGE 

ee 

SUBTRACT 1 FROM YEARS TO COMPLETION 
STORE UPDATED YEARS TO COMPLETION 
SET INDEX REG3 = 0 (WE ARE INVESTIGA 
TING PROCESSED SEG 

LOAD REG4 WITH ADDR Q SUPPLIER 

ARE WE INVESTIGATING PROCESSED SEG 
IF SO, GO TO WALPSG 

ARE WE INVESTIGAT UNPROCESSED S&G 
IF SO, GO TO WALUPSG 

SET SUPPLIER = 04 = CRUSHED STONE 
GO TO DWAEY 

SET SUPPLIER = O1 = PROCESSED SEG 
GO TO DWAEY 

SET SUPPLIER = 02 = UNPROCESSED SEG 
IS ANY MATERIAL BEING USED 

oe 

IF NOT, GO TO WIPDEVUP 

IS YEAR = 1 

IF YES, GO TO IAQAS 

DO WE ASSIGN Q*S EACH PERIOD 

IF YES, GO TO FINDNQ 

DO WE ASSIGN ONLY WHEN A NEW Q HAS 
BEEN ADDED 

IF SO, GO TO HANQBA 


TS A QUARRY ASSIGNED 

IF NO Q ASSIGNED, GO TO FINONQ 

INSET SUPPLIER INTO REGB 

TS ASSGNED Q FROM OUTSIDE 

IF SO, GO FO COSTOUT 

OTHERWISE GO TO CAQSS 

TEST SUPPLIER 

IS Q(4) STILL A QUARRY 

IF NOT, GO TO FINDNOQ 

LOAD LIFE Q(4) INTO REGS 

IS LIFE GREATER THAN O 

IF NOT, GO TO FINONQ 

DOES 0(4) USE AN INTER PT 

IF YES, GO TO IIPOK 

LOAD PRESENT MATL BEING USED AT Q(4) 
ADD PRESENT MATL BEING USED 

DOES PRESENT DEMAND EXCEED MAX YR OU 
IF NOT, GO TO FIGCOST 


9201 C484 C1804 1538 MVI CHANI,X*O1® 
585C 2C6C 0376C 1539 t 5»SOEVFOCH 
1255 1540 DEVLP LTR 595 
47BC CCEC OL4B80 1541 RN NENOPER 
58FC C434 01884 1542 L 15,VENDPER 
O7FF 1543 BR 15 
1544 NENOPER EQU * 
C203 C43cC 5C38 ClasC OCC38 1545 MVC NEXTDEV(4),56(5) 
C5CO 2272 SCLA C3972 OCOLA 1546 CLC YEAR(1),26(5) 
477C C358 O1748 1547 BNE UPDEVPTR 
1548 © AT THIS POINT, DEVFO WILL BECOME A WIP 
$2co 5cls cco19 1549 MVI 2515),X*00* 
92C1 5C2B CCC2B 1550 MvI 4315).x"O1* 
505C 2C9C oz7se 1551 st 5,ADEVTBD 
S8FC 2C2C O3s72C" 15592 L 15, ASRODEV 
CSEF 1553 BALR) 14,15 
505C 2CSC 03790 1554 st 5,AWIPTBA 
S8FC 2C2C Os720/ 1555 L 15,ASRAWIP 
CSEF 1556 BALR 14,15 
1557 CONTWIP EQU ° 
1688 1558 SR 8,8 
438C 5C18 occie 1559 1c 8,27(0,5) 
5c5c 2118 03818 1560 ST 5 eWIPBE 
SBFC 2C58 O375F 1561 L 15,ASRPPU 
CSEF 1562 PALR 14,15 
Cé68C 1563 BCTR 8,0 
42eC 5C1B OcOIR 1564 stc 8,2710,5) 
1833 1565 SR 353 
1566 * 
5843 5C4C O0CO40 1567 USELOOP L 4,64(3,5) 
593C C488 O1SCR 1568 Cc 3e2F*O° 
478C CCCC 01510 1569 PE WATPSG 
593C C48C 0190C 1570 Cc 3,=F°4!" 
478C CCC8 O1518 1571 BE WATUPSG 
9204 2405 C3BC5 1572 “VT SUPPLIER», X*04* 
47FC COCC O1sic 1573 a DWAEY 
9201 24C5 C3BC5S 1574 WAIPSG Lhe | SUPPLIER,X*O1* 
47FC COCC CUS 1575S B DWAEY 
9202 24C5 C3RC5S 1576 WAIUPSG PVI SUPPLIER,X*02°* 
56A3 2126 03828 1577 DWAEY L 10, PPUPSG(3) 
12AA 1578 LTR 10,10 
478C C3l1E OL76E 1579 BZ wIPDEVUP 
95C1l 2272 C3972 1580 Cur YEAR,X*OL* 
4780 CCEE OFS3E) 156% BE TAQAS 
$501 2267 C3967 1582 cul ASSGNQ,X*O1® 
4780 C1lA4 O15F4 1583 RE FINDNQ 
$502 2267 C3967 1584 cut ASSGNQ,X*02* 
1585 « 
478C C1Sé OLSE6 1586 PE HANQBA 
1587 TAQAS EQU * 
1244 1588 LTR 454 
474C C1LA4 OLSF4& 1589 BM FINDNQ 
438C 2405 03805 1590 {c 8,SUPPLIER 
448C C1C4 01554 1591 EX 8,1 SMFO 
471C C3C2 O1822 1592 80 cosTouT 
STFC C108 01558 1593 Li] CAQSS 
91C0 5C31 cco3l 1594 I[SMFO ™ 49(5),x*00° 
9102 4CC5 coocs 1595 CAQSS ™ 514)5X*02* 
47BC C1A4 OL5F4 1596 BZ FINDNOQ 
58sec 4c0e8 occos& 1597 L 8, 81094) 
12e8 1598 LTR 848 
470C CLAS O15F4 1599 BNP FINDNQ 
$104 4CC5 coocs 1600 ™ 5(4).X*04* 
471C C138 01588 1601 BO ITPOK 
5880 404C OCO4C 1602 iL 8y76(0+4) 
5A83 2128 03828 1603 A 8»PPUPSG(3) 
598C 4CCC OCcOoC 1604 Cc 8,12(054) 
4740 C22C 01670 1605 BL FIGCOST 
1894 1606 LR 994 
4TFO CL5A O1L5AA 1607 B MAXYOEX 


589C 5C5C 00050 1608 IIPOK L 95801095) 


GO TO MAXYOEX 
LOAD ADDR IP BEING USED INTO REGO 


tec 


oc1sec 
OC1LS@E 
0c1592 
00159€ 
OC159A 
OCI59E 
OOLSA2 
OC15AE 


OCLSAA 
OCLSAA 
OCLSAE 
Oc1lse4 
OCLS5SBA 
OcLSCC 
OC15C4 
ocisce 
OCLS5CE 
OC15C2 
OCLSCLE 
Oc1scC 
OC1LS5EC 
CCL5SE2 
OCLSEE 
OCi5EA 
OC1LS5EC 


OCL5FC 
OC15F4 
OC1L5F4 
OCLS5Fe 
OCILSFC 
Oc1écc 
cCcléc2 
CCLECE 
ociece 
oc1écc 
OC1E12 
CClélé 
OCLEI1A 
OCIé1E 
CC1lE22 
oclé2e 
OC162C 
CC1é3C 
OC1E34 
OCLE3A 
OC1L637E 
OC1é42 
acié4e 
OC1lE4SC 
oclésc 
oclésé 
CClé54 
OC16é5C 
OC1lEEC 
CClEES 
cc1éée 
OCLEEC 
OCcléT7C 


OC1léETC 
CCLETE 
OC1Lé7A 
OCLETE 
OC1LE&2 
OCLE8E 
OC1LéBA 
OCLéeE 
0C1692 
Oc1Légé 
OCLE9A 
OClESE 
OC1l6A2 
OCLEAE 


OC1L6A8 


OC16AC 
Ocléec 
OC1éB4 
OClEBE 
oc1éebe 
oc1éeec 
OC1L6BE 
oc1éc2 


oc1éece 
ociece 
OC1ECC 


oc1eéecc 
OC1LED4S 
ociéce 
oc1éCC 
OC1éCC 
OCL6EC 
OC1EES 


CATA PROCESSING CONTROL SECTION (MINEOP) 


OBJECT CCDE 


1259 
474C 
9101 
478C 
seac 
5A80 
598C 
474C 


9211 
C219 
D20F 
0221 
4889 
4EBC 
0E03 
48B9 
4EBC 
CEC3 
58FC 
OSEF 
4TFC 
5883 
12ee 
472C 


4TFC 


sosc 
4230 
S8FC 
CSEF 
5e8ac 
184€ 
§0e@2 
C203 
43BC 
44BC 
478C 
$211 
C23F 
587C 
4BRC 
4EBC 
OE03 
48BC 
4EBC 
OEC3 
48RC 
4EBC 
CEC3 
S8FC 
OSEF 
438C 
44AC 
4TFC 
S6CC 
91CC 


O2CC 
STFF 
“3eC 
44BC 
5883 
5883 
5083 
5esc 
5883 
5080 
5e83 
5A83 
5083 
L233 


4770 


589C 
5A9C 
1888 
IBAA 
43AC 
1C8A 
508C 
5B9C 


18ee 
5cec 
508C 


429C 
91C4 
4710 


5860 
5A63 
5060 


CLAS 
eccs 
CLAS 
904C 
2128 
gccc 
C22C 


22C8 
22EEF 
22CC 
2308 
ccco 
2ccc 
22FC 
ccc2 
2ccc 
2303 
2C4C 


CLAS 
2u1c 


C1A4 


CCEE 


2118 
21CC 
2csC 


2114 


5C4C 
5C50 
24C5 
€21C 
C22C 
22C8 
22CC 
2114 
7cCC 
2ccc 
22EC 
5CCC 
2cCC 
2312 
5CC2 
2ccc 
2318 
2C4C 


24C5 
C218 
C302 
5C31 
24C6 


C4RF5 
C4e5 
c4e5 
C354 
501C 
2128 
S5C1C 
4cce 
2128 
4CC8 
2184 
2128 
2184 


c28c 
4c08 
2128 
4018 
214C 
2134 
214C 
40C8 
4C1e 
4cC05 
C36C 
404C 


2128 
4C4C 


24Ce 
C486 
C456 


2CC6 


2CC6 


211¢ 


C444 


2CC6é 


2CC6 


2€cé 


24C5 


ADDR1 


ccocs 


039C8 
C39EE 
039CD 
C3A08 


C39FD 


C3AC3 


ccose 


039C8 
c39C0 


C3I9EC 


C3AL2 


C3A18 


cco31 
C3BC6 


cians 
clans 


ccocs 


AOCR2 


O15F4 


O15F4 
Oco4c 
03828 
occcc 
01670 


o3BCR 
01806 
O1L8E6 
ocooco 
037CO 
037C6é 
ocoo2 
037C0 
037C6 
0374C 


OLSF4 
0381C 


O15SF4 
0153€ 


03818 
038CC 
0375C 


03814 


0cc40 
032810 
03805 
0166C 
01670 


01894 
03814 
ococo 
037C0 
037C4 
occco 
037C0 
037Cé 
occc? 
037CO 
037C6 
0374C 


038C5 
01668 
01822 


03805 


018C5 
OLTAS 
ocoic 
03828 
ocoic 
occos 
03828 
ococs 
03884 
03828 
03884 


O16CC 
OcOooAR 
03828 
ocols 
03840 
03834 
03840 
occos 
00018 
O17PCc 
OCO4C 


03828 
Oco4c 


ST¥T 


1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 


SOURCE STATEMENT 
LTR 9,9 
BM FINDNQ 
™ 5(9),X"O1* 
BZ FINONQ 
L 8,76(0,9) 
A 8,PPUPSG 
c 8,1200,9) 
BL FIGCOST 
# AT THIS POINT, 
MAXYOEX EQU * 
MV CARCONT,»X*11° 
MVC OUTL EINE#+37(26),M35 
MYC OUTLINE+20(L°M1L),M1L 
MVC OUTLINE#63(L°M2),M2 
LH 11,019) 
CvDd 11,0W 
ED OUTLINE+52(4) ,OW+6 
LH 11,219) 
Cvo0 11,0W 
ED OUTLINE+58(4),DW+6 
L 15,ALINEOUT 
RALR 14,15 
B FINDNQ 
HANQBA L 8, TYPQASG(3) 
LTR 8,8 
RP FINDNQ 
. 
8 TAQAS 
FINONQ £QU * 
ST 5 sWIPBE 
sTc 3, INDEXT 
L 15,ASRFLCQ 
PALR 14,15 
L 8,QASSGNED 
LR 4,8 
st 8,64(3,5) 
MVC 80(4,5),4DDRIP 
1c 11, SUPPLIER 
FX 11, TOTYPE 
R7 FIGCOST 
MVI CARCONT,X*11° 
MYC 
L 7,QASSGNED 
LH 11,0(0,7) 
CvD0 11,0W 
FDO OUTLINE+#35(4),DWt6 
LH 11,0(0,5) 
cvo 11,0W 
ED OUTLINE+73(4),0W+6 
LH 11,2(0,5) 
cvo 11,0W 
ED OUTLINE+79(4),DW+6 
L 15,AL INEOQUT 
BALR) 14,15 
1c BySUPPLIER 
EX 8,1TIFOS 
8 cosToutT 
ITFOS a1 49(5),X*"00° 
TOTYPE ™ OUTSI,X*00" 
FIGCOST FQU * 
* AT THIS POINT THE WIP BEING PROCESSED IS IN REGS. 
® IN REG4, AND AN INTERMEDIATE POINT 
MVC STRATEGI(1L),SUPPLIER 
XI STRATEGI,X*"FF® 
Ic L1L»STRATEGI 
EX 11,SOMEZ 
t 8,28(3,5) 
> 8,PPUPSG(3) 
ST 8,28(3,5) 
L 8,810.4) 
Ss 8,PPUPSG(3) 
ST 8,810.4) 
L 8,YTPSG(3) 
A 8,PPUPSG(3) 
ST Bs YTPSG(3) 
LTR 3,3 
« 
BNZ NOIP 
® AT THIS POINT? 
L 9,810,4) 
A 9,PPUPSG 
SR 8,8 
SR 10,10 
Ic 109241024) 
MR 8,10 
0 8»HUNDRED 
= 9,PPUSAND 
e 
SR 8,8 
¥ 8,HUNDRED 
0 8,8(0,4) 
* 
STC 92241004) 
™ 5(14)—X"04" 
BO YESIP 
NOIP EQU * 
L 69761094) 
A 6,PPUPSG(3) 
ST 6976104) 


FOLAUG68S 


IS THERE AN INTERMEDIATE POINT 

IF NOT, GO TO FINDNQ 

IS INTER PT STILL A PP 

IF NOT, GO TO FINDNQ 

LOAD MATL PRESENTLY BEING SUPPLIED 
ADD PROCESSED SEG REQUIRED 

DOES IT EXCEED MAX YR OUTPUT 

IF NOT, GO TO FIGCOST 


MAXIMUM YEARLY OUTPUT HAS BEEN EXCEEDED 


(MAXIMUM 
SET CARRTAGE CONTROL 
MOVE MESSAGES TO OUTLINE 
ee 

ee 

LOAD ROW INTO REGIL 
CONVERT ROW TO DECIMAL 
EDIT ROW 

LOAD COL INTO REG11 
CONVERT TO DECIMAL 

EDIT COLUMN 

CALL OUTPUT ROUTINE 

ee 


YEARLY OUTPUT EXCEEDED 


GO TO FINDONQ 
HAS A Q BEEN ADDED 
IS ADDR POSITIVE 


IF SO, A Q HAS BEEN ADDED... GO TO 
FINONQ 
OTHERWISE, GO TO IAQAS 


(FIND A NEW QUARRY) 

STORE ADDR OF WIP BEING ESTABLISHED 
STORE INDEX O=PR SEG, 4=UPR SEG 8=CS 
CALL SUBROUTINE FIND LGW COST Q 

ee 

LOAD REG8 WITH ASSGNED QUARRY 

LOAD Q ASSGNED INTO REG4 

STORE ADDR OF ASSIGNED Q 

SET ADORESS OF INTER POINT 

INSERT SUPPLIER TYPE INTO REGL1L 

IS ASSGNED Q FROM OUTSIDE 

IF NOT, GO TO FIGCOST 

SET CARRIAGE CONTROL 


OUTLINE*20(L*QSQP),QSQP SET UP MESSAGE 
‘ 


INSERT SUPPLIER INTO REGB 

SET OUTSIDE Q INDICATOR 

GO TN COSTOUT 

SET OUTSIDE TYPE 

IS IT FROM OUTSIDE 

(FIGURE COST) 

ITS Q SUPPLIER IS 
(IF APPLICABLE) IS AT REGS + 80 

SET STRATEGIE = SUPPLIER 

INVERT ALL STRATEGI BITS 


INSERT STRATEGI INTO REGILI 


SET OUTSIDE INDICATOR = O 


LOAD MATL REQD AT WIP(5) INTO REGS 
SUBTRACT PRESENT MAT*L USAGE 
STORE UPDATED MAT*L REQ*D 
LOAD LIFE Q(4) INTO REG8 
SUBTRACT MATL BEING USED 
STORE UPDATED LIFE Q(4) 
LOAD YEARLY TONS MATL USED INTO REGS 
ADD TONS PRESENTLY BEING USED 
STORE UPDATED TONS 
IS REG3 O (ARE WE TESTING PROCESSED 
SEG 


IF NOT, GO TO NOIP 


WE ARE INVESTIGATING PROCESSED S&G 


LOAD LIFE Q{4) INTO 
ADD MATL BEING USED 
CLEAR REG8 

CLEAR REGLO 

INSERT PERCENT SAND 
MULTIPLY BY PERCENT 
DIVIDE BY 100 = 


REG9 


INTO REGLO 
SAND AND 
AMT SAND AT Q(4) 


SUBTRACT PREST PERIOD SAND = SAND 
AFTER PRESENT DEMAND 

CLEAR REGB 

MULTIPLY SAND BY 100 AND 

OIVIDE BY LIFE AFTER = PERCENT 


SAND AFTER 

STORE UPDATED PERCENT SAND 
DOES Q(4) USE AN INTER POINT 
IF YES, GO TO YESIP 

(NO INTERMEDIATE POINT) 

LOAD REG6 WITH PRESENT USAGE 
AOD PRESENT PERIOD USAGE 
STORE PRESENT DEMAND 
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Loc 


Oc1éEe 
OCC1EEA 
OOLEEE 
OC1lEF2 
OOLEFE 
OCcléFe 
OOL6FE 
0c17C4 
oo17ce 
OCc17CA 
oci71c 
OC1L714 


CC171é 
Oc1i71A 
OCIT7TIE 
CC1722 
CC1L72é 
oc172e@ 
0c172C 
0C173C 
0C1734 
OC1L73€ 
OC173A 
0C173C 
OCAT4C 
001744 
OCL74E 


CC174C 
OCLIGE 
001752 
OC1l754 
0C175é 
OC1T75A 
OCLT5E 
OC1762 
OC1L7E4 
CC17EEe 
CCL?76A 
OCLTEE 
OC1772 
oci77é 
OC177A 
Oc17IC 
oci7ec 
Oc1782 


oci7eé 
oci7eAs 
OC176E 
Oc1792 
€C1794 
OC1194 
cc1798 


CcC179sc 
OC17AC 
OC17A4 
Oc17Aeé 
CC1LTAC 


OCc178C 
oci7ec 
0c1784 
oci7ee 
Oc176C 
oc17cc 
oc17c2 


OC17C6 
OC1L7CA 
OC1ICE 
oci7cc 
OCc1l7Cé 
00170C 
OC1TEC 
OC17E2 
OCLT7EE 
OC1I7EC 
OCLZFC 
OC1LTF2 
OC1L7FE 
OCLTFC 
oc1ecc 
oo1ec2 
ocleceé 
ociecc 


Ocl@ic 
001814 
Oc1lelé 
CC1B1A 
Oc1B1E 
0c1822 
oc1e22 
OC1e82¢é 
ocieza 


DATA PROCESSING COATROL SECTION (MINEDP) 


OBJECT CODE 


1866 
4870 
5C6C 
506€ 
1887 
0203 
0203 
S58FC 
CSEF 
0203 
58FO 
OSEF 


782C 
TE2C 
702C 
$2cc 
1B8€6 
587C 
5C63 
5893 
1Aa97 
5093 
1866 
5870 
5C63 
5060 
5a9gC 


1A97 
5c9gc 
1A87 
1Bé€é 
487C 
5C63 
5C6C 
1Ae? 
5673 
1A7® 
5073 
413C 
593C 
47CC 
1eee 
438C 
12ee 
477C 


S2ce 
505C 
56FC 
CSEF 


95CC 
477C 


585c 
4 TFC 
$4CC 
565C 
47FC 


5890 
586C 
SA6C 
506C 
18€6 
4870 


scéc 
5D6C 
1867 
0203 
02c3 
58FC 
CSEF 


7820: 


0203 
58FC 
OSEF 
58a0 
0203 
58FO 
OSEF 
7A2C 
0203 
702C 


58FO 
OSEF 
5AA0 
SOAC 
4TFO 


5e83 
5883 
5083 


402E 
2128 
214C 


2CBO 
2084 
2034 


20C4 
2038 


20A4 
C4C0 
C438 
C438 


C438 
2128 
21A8 


21A8 


20c8 
2128 
214C 
21CC 


21CC 


4C14 
2128 
214C 


219C 


219C 
3CC4 
C4C4 
CCA4 


S5C1B 
C344 


5028 
2cac 
2C3C 


C484 
C358 


C440 
cc3c 
$031 
C43C 
cc54 


5c5c 
9C4C 
2128 
9C4C 


9C2E 


2128 
214C 


208C 
2CB4 
2034 


2Ca4 
2CC4 
2038 


2cce 
2cBo0 
2034 


2CA4 
20C4 
20A4 


2038 


2cc8 
2cc8 
C2cé 


SO1C 
2128 
5C1C 


ApoR1 


40CC C37RO 
5CCC C37B4 


20A4 C37C4 


c16e8 


cco28 


C1804 


cco3L 


4CCC 03770 
SCCC C37#4 


20a4 ©O37C4 


5CCO 03780 


2CA& C3ITC4 


ADDR2 


OO002E 
03828 
03840 


ococo 
occco 
03734 


O37A4 
03738 


O37A4 
01910 
o16es 


01888 
03828 
038A8 


036A8 


037C8 
03828 
03840 
038CO 


038CO 


Ocol4 
03828 
03840 


0389C 


0389C 
occc4s 
01914 
O14F4 


ocolR 


01794 


O37A0 
03730 


O17A8 


01890 
0148C 


0188C 
O14A4 


ocos0 
oco4c 
o382A 
0co4c 


OCO2EF 


038628 
03840 


accco 
occco 
03734 


O37A4 
O37TA4S 
03738 


037C8 
o0000 
03734 


O37A4 
O37A4 
O37A4 


03738 


037C8 
037C8 
O1716 


QooIc 
03828 
ocoic 


STMT 


1708 
1709 
1710 
W711 
1712 
1713 
1714 
L7Ys 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
Liss 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 


SOURCE STATEMENT 


SR 
LH 
M 

0 
LR 
MVC 
MYC 
L 


BALR 


MVC 
L 


RALR 


656 

79461054) 
6,PPUPSG 

6, HUNDRED 

8,7 
POINT1(4),0(4) 
POTNT2(4),015) 
15,ASRDIST 
14,15 
TRANSO(4),DESTX 
15-ASRTRCST 
14,15 
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FOLAUG68 5/30/69 
CLEAR REG6 

LOAD AMORT COST INTO REG7 

MULTIPLY BY MATL USED 

OIVIDE BY 100 TO CONVERT TO DOLLARS 

LOAD INTO REGB 

SET POINT 1 TO Q(4) 

SET POINT 2 = WIP(5) 

FIND DISTANCE WIP(5) TO Q(4) 


FIND TRANSPORTATION COST 
es 


e AT THIS POINT DISTX = TRANSPORTATION COST IN FLT POINT AND 


# FIXPTCST = TRANSPORTATION COST (IN FIXED POINT) 


IN PENNIES/TON 


CONVERT DISTANCE TO FIXED POINT 
ee 


CLEAR REG6 

LOAD DISTANCE INTO REG7 

MULTIPLY BY PRESENT USAGE 

LOAD REGO WITH YEARLY TON -MILES 
ADD PRESENT TON-MILES 

STORE UPDATED TON-MILES 

CLEAR REG6 

LOAO TRANS COST INTO REG? 

MULTIPLY BY PRESENT USAGE 

OIVIDE BY 100 TO CONVERT TO DOLLARS 
LOAD REG9 WITH YEARLY TRANSPORTATION 
cost 

ADD PRESENT TRANSPORTATION COST 
STORE UPDATED TRANSPORTATION COST 
ADD TRANSPORTATION COST TO REGS 
CLEAR REG6 

LOAD COST TO MINE & PROCESS INTO 7 
MULTIPLY BY PRESENT USAGE 

DIVIDE BY 100 TO CONVERT TO DOLLARS 
ADD TO REG 8 

LOAD YEARLY TOTAL COST INTO REG7 
ADD PRESENT TOTAL COST 

UPDATE YEARLY COST 

ADD 4 TO INDEX REG3 

TS REG3 GREATER THAN 8 

IF NOT, GO TO USELOOP 

CLEAR REGB 

LOAD YEARS TO COMPLETION INTO REGS 
IS WIP COMPLETED 

IF NOT, GO TO CLWATI 


WIP IN REGS HAS BEEN COMPLETED 


SET WIP INDICATOR TO O 
STORE ADOR OF WIP TO BE DELETED 


CALL SUBROUTINE DELETE WIP 
.% 


(CHECK WHICH CHAIN WE ARE IN) 
ARE WE IN WIP CHAIN 
IF NOT, GO TO UPDEVPTR 


WE ARE IN WIP CHAIN 


LOAD REGS WITH ADDR NEXT WIP IN CHAI 
GO TO BEGUSE 

SET OUTSIDE INDICATOR BIT = O 

LOAD REGS WITH ADDR NEXT DEVFO IN CH 
GO TO DEVLP 


T AN INTERMEDIATE POINT IS BEING USED 


COTFP LE 2,01STX 
AU 2+=X%*46000000" 
STE 2,O01STFIX 
MVI OISTFIX,X*00* 
sR 66 
e T,OISTFIX 
™ 6, PPUPSG(3) 
£ 9eYTMPSG(3) 
AR 957 
ST 9,YTMPSG(3) 
SR 696 
TeFIXPTCST 
“ 6yPPUPSG(3) 
10} 6,HUNORED 
L 9,YTRCST 
8 
AR 957 
ST 9+YTRCST 
AR 8,7 
SR 696 
LH Te201004) 
Lt 6 PPUPSG(3) 
t) 6,HUNORED 
AR By7 
L TeYCPSG(3) 
AR 7,8 
ST 7-YCPSG(3) 
WIPDEVUP LA 394(0,3) 
Cc 3,=F°8* 
BNH USELOOP 
SR 858 
1c 8,2710,5) 
LTR 8,8 
BNZ CLWAI 
# AT THIS POINT, 
MVI 43(5),xX"00* 
st 5 eAWIPTBD 
t 15,ASROWIP 
BALR 14,915 
CLWAT FQU * 
cL CHANI,«X*0O* 
BNE UPDEVPTR 
* AT THIS POINT, 
e 5 »NEXTWIP 
B BEGUSE 
SOMEZ NI 49(5)5xX*009 
UPDEVPTR L 5 NEXTDEV 
B CEVLP 
# AT THIS POIN 
VESIP EQU * 
L 9,80(0,5) 
\ 65761049) 
A 6_yPPUPSG 
ST 69761059) 
SR 656 
LH 794610,9) 
® 
La} 6yPPUPSG 
0 6sHUNDRED 
ter 857 
MYC POINTL(4),0(4) 
MVC POINT2(4),0(9) 
L 15,ASRDIST 
PALR 14,15 
LE 2,D1STX 
MVC TRANSD(4) »DISTX 
L 15,ASRTRCST 
BALR 14,15 
L 10,FIXPTCST 
YC POINT1(4),0(5) 
t 15,ASROIST 
BALR) 14,15 
AE 2,DISTX 
MYC TRANSO(4) ,-OISTX 
STE 2eD01STX 
e 
t 15, ASRTRCEST 
BALR) 14,15 
A 1O,FIXPTCST 
sT 10,FIXPTCST 
RB COTFP 
cosToutT €QuU * 
L 8.281355) 
Ss 8,PPUPSGI3) 
st 8,28(3,5) 


(YES, AN INTER POINT) 

LOAD REGO WITH ADDR INTER POINT 
LOAD REG6 WITH USAGE Q(9) 

AOD PRESENT USAGE 

STORE UPDATED USAGE 

CLEAR REG6 

LOAD AMORTIZATION 
INTO REG 7 
MULTIPLY BY USAGE 
ANO DIVIDE BY 100 
LOAD IMTO REGS 

SET POINTL = Q(4) 
SET POINT2 = Q(9) 
FIND DISTANCE Q(4) 


COST OF IP(9) 


PROCESSED SEG 
TO CONVERT TO $ 


TO Qt9) 


LOAD FLT PT REG2 WITH DISTX 
FIND TRANSPORTATION COST 
ee 


LOAD TRANS COST INTO REGLO 
FIND DISTANCE Q(9) TO WIP(5) 
ee 


AOD ¥O FLT PT REG2 = TOTAL NMISTANCE 
FIND TRANS COST Q{9) TO WIP(5) 
SET DISTX = DIST O14) TO Qi9) + 
Q(9) TO WIP(5) 

FIND TRANSPORTATION COST 

oe 

ADD TRANSPORTATION COST TO REGLO 
STORE TOTAL TRANSPORTATION COST 
GO TO COTFP 

(COST FORM OUTSIDE ROUTINE) 
UPDATE LIFE AT WIP(5) 

ee 


tec 


OO182E 
OC1e32 
Ocie3eé 
0C18634 
OC183E 
6C1e42 
OOL8AE 
OC1@4c 
oc1es2 
00185é 
0c1858 
OC1OSE 
0C18é2 
001864 
OC1868 
OCc1eéEC 
OC1LeeE 
OcleT2 
cc1se7é 
OC167A 
ocis7c 
oc1esc 
Oc1e84 
oc1eesé 
eciesc 
ec1esc 


oc1e94 
Oc16C4 
ec1ecs 
OCLBCé 
OCLBEE 
ocisce 
oo19ce 
cciscc 
0o1s1C 
OC1914 
ocigi1é 
ocigie 
ocigie 
OC191A 
OCcISIE 
0C1922 
0c1924 
cc1928 
OC192E 
CC1934 
0C193€ 
OC193A 
OC193E 
001944 
0c1948 
CC1S4A 
Oc1gsc 
CC1SSE 
CC195C 
oc1sec 
oc19é2 
0C196é 
CCISEE 
OC1974 
OC197A 
oc19ec 
ocise4 
ocisee 
CCI96E 
001592 
OC1S96é 
C0199c 
ec1sac 
OC19A4 
OCiSAA 
OCIGAE 
oo19ec 
oc1is6é 
oc19ec 
0019C2 
oc19sce 
Gclsce 
0019€2 
OO1SC6é 
oc1scec 
Oo1gsec 
OCL9ES 
OCI9EA 
OCAGEE 
Oci9e2 
0C19Fe 
OC1L9EC 
OCLOFE 
OC1AG2 
OclaAce 
OCLACE 
OCIAI4S 
COLALA 
Oc1aAzc 
001A24 
Ocla2e 
OCLA2E 


DATA PROCESSING CONTROL SECTION (AINEDP) 


CBJECT CCDE 


5860 
5A83 
5080 
5880 
5a83 
508C 
0203 
0203 
$6FC 
OSEF 
0203 
58FO 
OsEF 
589C 
4A9C 
isee 
5c83 
5D8C 
5e7c 
1479 
5070 
4TFC 


40CC 
2128 
4CCC 
21C4 
2128 
21€4 
2c80 
2CB4 
2034 


20C4 
2038 


20c8 
40C4 


2128 
214C 
21C8 


21C8 
C31E 


cccc1918 


sccc 
4CC6 


2044 


ACORL 


C3780 
037684 


037C4& 


OGESESE2CSC4C54C 


EBCSCICIC3IEBSCC4S 
CBCLE24CC5E7C3C5 


cccccoce 
OcccCCCO4 
46CCCCCC 
ccccccos 


18CF 
9268 
5BFC 
OSEF 
9211 
t209 
0207 
1877 
437C 
4€7C 
CEC3 
58FC 
CSEF 
020C 
O20E 
02cC 
58FC 
CSEF 
0204 
C206 
0208 
O2ce 
0208 
5870 
4ET7C 
OECB 
58670 
4E7C 
CECB 
5870 
4€7C 
OECB 
58FO 
CS5EF 
0204 
0208 
c208 
0208 
D208 
587C 
4€70 
cece 
5870 
4E7C 
DECB 
5870 
4E7C 
DEOB 
56FO 
C5SEF 
9219 
0204 
02c3 
0208 
0208 
0208 
5870 
4€70 
OECB 
5870 


22C8 
2c4c 


22C8 
22F9 
2304 


eee 
2ccc 
23C8 
2C4C 


22e7 
22FB 
2314 
2c4C 


2204 
22CA 
22E€7 
22FC 
2311 
219C 
2cecc 
22E7 
21AC 
2cco 
22FC 
2144 
2ccc 
2311 
204C 


2204 
220A 
22E€7 
22FC 
2311 
21A8 
2ccc 
22E7 
21AC 
2ccc 
22FC 
21BC 
2ccc 
23il 
204C 


22c8 
2204 
220A 
22€7 
22FC 
2311 
2184 
2ccc 
22E7 
2188 


Cae? 
2548 


2CC6é 


CATL 
CATE 
Caec 


CAa5s6 
CASA 
CA5B 
CA5B 
CA5R 


2cc3 


2cc3 


2cc3 


CA56 
CAAL 
CA5B 
CAS5B 
CA5B 


2CC3 


2cc3 


2cc3 


CA56 
CAAA 
CASB 
CASB 
CASB 


2cc3 


C39C8 


c39CA 
039F9 
C3AC4S 


C3a08 


C39FT 
C39FR 
C3All 


C3904 
C39DA 
O39ET 
C39FC 
C3ALL 


C3I9E7 


C39FC 


C3ALL 


C3904 
C39CA 
C39ET7 
039FC 
C3AllL 


C39E7 


O39FC 


C3Ail 


039C8 
03904 
C390A 
C39E7 
C39FC 
C3all 


C39ET 


ADDR2 


occoc 
03828 
6caoc 
038C4 
03828 
038c4 
ecoco 
00006 
03734 


O37A4 
03738 


037C8 
0co04 


03828 
03840 
038C8 


038C8 
O1LT6E 


0374C 


O237F 
O3C4B 


03972 
037C0 
037C6 
0374C 


02389 
02396 
02345 
0374C 


O23€€ 
023R2 
02373 
02373 
02373 
0389C 
03700 
03703 
638A0 
03700 
03703 
0384 
03700 
03703 
0374C 


0236€ 
02389 
02373 
02373 
02373 
036848 
037CO 
03703 
O38AC 
03700 
037C3 
03880 
637C0 
037C3 
0374C 


0236E 
023C2 
02373 
02373 
02373 
03864 
037C0 
03703 
038B8 


STMT 


1807 
1808 
1809 
1810 
1611 
1812 
1813 
1614 
18615 
1816 
1817 
1818 
1619 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1633 


183% 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1658 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1R66 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
18861 
1882 
1883 
18684 
1865 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1699 
1900 
1901 
1902 
1903 
1904 


SOURCE STATEMENT 


VENOPER 
OUSTFIX 
WEXTDEYV 
NEXTWIP 
QsaPp 


CHANE 
STRATEGI 
Lab | 

m2 


EMOPER 


85121004) 
8,PPUPSGI3) 

8, 1210.4) 

8, YTOMSOUT 

8, PPUPSG(3) 

8, YTONSOUT 
POINT1(4),0(5) 
POINV2€4) 5604) 
15,ASRDIST 
14,15 
TRANSD(4),D1STX 
15, ASRTRCST 
14,15 

9, FIXPTCST 
9441094) 

8,8 

8, PPUPSG6(3) 
8,HUNORED 
7,YCOUTS 

749 

7,YCOUTS 
WIPDEVUA 
A(ENDPER) 

F 

FE 

rs 

C*OUTSIDE QUARRY - 
== Jig) sl io * 

x 

x 

C*YEARLY DEMAND ON® 
C*HAS EXCEEDED MAXI 


zFtQr 
=FIG® 

=X*"46000000* 

=Fege 

ry 

#,12 

12515 

CARCONT,X*8B?® 

15, AL TMEOUT 

14,15 Le. 
CARCONT,X*11° 
OUTLINE#48(10),M300 
OUTLINE+59(6) »,BYM6 
ToT? 

7, YEAR 

7,0W 
OUTLINE+63(4) -DW+6 
15,AL TNEOUT 

14,15 
OUTLINE*30(13),301 
OUTL INE#+50(15),M302 
OUTL INE4+72(13),M303 
15, AL TNEOUT 

14,15 
OUTLINE+#11(5) 94298 
OUTLINE+L7(7),M304 
OUTLINE*30(12),4299 
OUTLINE4*51(12),m299 
OUTLINE#72(12),4299 
Ts YCPSG 

7,00 

OUTL INE*#30412),0wW43 
7, YCUPSG 

7,0W 

OUTLINE *¢51(12),0w+3 
7,vCCS 

7,0W 
OUTLINE*+72¢12),0we3 
15,AL TNEOUT 

14,15 
OUTLINE*11(5),4298 
OUTLINE4*17(9) ,4305 
OUTLINE+30(12).M299 
OUTL INE+51(12),4299 
OUTLINE *#72(12),4299 
7TeYTMPSG 

7,0W 
OUTLINE+30(12),0W+3 
Ts YTMUPSG 

7,0W 
OUTLINE+*S1(12),0w+3 
T,YTMCS 

7,0W 
OUTLINE+72(12),0W+3 
15, AL TNEOUT 

14,15 

CARCONT,X*19¢ 
OUTLINE+11(5),M298 
OUTLINE*L7(4),4306 
OUTLINE+30(12),M299 
OUTLINE*51(12),M299 
OUTL INE*#72(12),6299 
T»YTPSG 

7,0W 

OUTL INE+30(12),0Ww+3 
T»YTUPSG 
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FOLAUG68 5/30/69 


UPDATE MATERIAL BEING USED AT OUTSID 


UPDATE YEARLY TONS FROM OUTSIDE 
eo 


SET POINTL = WIP(5) 
SET POENT2 = UNLD PT OUTSIDE 0(4) 
FIND DISTANCE 


FIND TRANSPORTATION COST 

LOAD TRANS COST INTO REGO 

AOD TOTAL COST TO UNLD PT 

CLEAR REGS 

MULTIPLY BY MATL USED 

DIVIDE BY 100 TO CONVERT TO DOLLARS 


UPDATE TOTAL COST FROM OUTSIDE 
ee 


ee 
GO TO WIPDEVUP 


/- HAS BEEN ASSIGNED TO WIP IN GRID X 


MUM YEARLY OUTPUT® 


(END PERIOD) 
SKIFP TO TOP OF PAGE 
ee 


WRITE OUTPUT HEADINGS 
ee 


oe 
to 
WRITE YEAR 
eo 
ee 
ee 
eo 
WRITE 
oe 
oe 
ee 


HEADINGS 


ee 
eo 

oe 

eo 

oe 

oe 
WRITE 
ee 


YEARLY COST PSG 


WRITE YEARLY COST UPSG 
ee 


WRITE 
oe 
eo 


YEARLY COST CS 


ve 
oo 
WRITE 
ee 
ee 
ee 


HEADINGS 


oo 
WRITE 
On 

eo 


WRITE 
oo 


TON-MILES PSG 


TON-MILES UPSG 


ee 
WRITE TON-MILES CS 
eo 

ee 
oe 
ee 
WRITE HEADINGS 
ee 

ce 
ee 
ees 
WRITE 
ee 
oe 


WRITE 


TONS PSG 


TONS UPSG 


DATA PROCESSING CONTROL SECTION (MINEDP) PAGE 30 


toc OBJECT CCDE ADDR1 ACDR2 STMT SOURCE STATEMENT : FOLAUG68 5/30/69 
OC1A32 4€70 2C00 037CO 1905 Cvo 7,0W MW) 
CC1A36 DECB 22FC 2CC3 O39FC 03703 1906 ED OUTLINE4+51(012),DW+3 ig 
OC1A3C 5870 21BC O38BC 1907 L 7e¥TCS WRITE TONS CS 
OCLA4C 4ETC 2CCC 03700 1908 cvo 7,OW ee 
OC1A444 CEOR 2311 2CC3 C3A11 037C3 1909 ED OUTL INE*72(12),0W+3 os 
COLA4SA 58FCO 2C4C 0374C 1910 L 15,ALTNEOUT ae 
OCLASE OSEF 19T1 BALR 14,15 Ht 
OCLASC 9211 22C8 c39C8 1912 MV CARCONTsX*il® 
OC1A54 0204 22E2 CA56 039F2 0236E 1913 MVC OUTLINE+#25(5) ,4298 WRITE TOTALS FOR YEAR 
OCLASA 0217 22E8 CAAE C39F8 023C6 1914 MVC OUTLINE+31(24),M307 KA 
OCLAEC C208 2301 CA5B C3A01 02373 1915 MVC OUTLINE+56(12),4299 | 
OCLAEE 5B87C 21CC o38CO 1916 L To YTRCST as 
OCLAGA 4E€70 2CCC 037CO0 1917 Cvo 7,0W ae 
OCLAEE DECB 2301 2CC3 C3A01 03703 1918 FD OUTLINE#+56(12),0W+3 ay 
CCLA74 SBFC 204C 0374C 1919 L 15,ALINENUT did 
OClATe OSEF 1920 BALR 14,15 xs 
OCIATA 0204 22E2 CASE 039E2 O236E 1921 MVC OUTLINE+25(5) »M298 Es 
OCLAGC C21E 22E8 CACE OCISEB O230E 19272 MVC OUTLINE+31(31),4308 lad 
OCIA®E D2CB 23CBR CA5B C3A08 02373 1923 MVC OUTL INE+#63(12),4299 os 
OC1ABC 587C 21C4 038C4 1924 L 7,YTONSOUT he 
OCLASC 4ETC 2CCC o3s7co 1925 cvo 7,DW Li 
OC1A94 CECR 2308€ 2CC3 C3A08 03703 1926 ED OUTLINE+63(12),0w+3 = 
CCLASA SBFC 2C4C 0374C 1927 L 15,ALITNEOUT me 
OCLASE OSEF 1928 BALR 14,15 La 
CCLAAC C204 22E2 CA56 CI9EZ2 0236E 1929 MVC OUTLINE+25(5) ,4298 ee 
OCIAAE D227 22E8 CAES O39E8 O23FD 1930 MVC OUTLINE+31(40) 44309 a 
OCLAAC C20B 2311 CA5B C3A1L 02373 1931 MVC OUTLINE+72(12).4299 a 
OC1LAB2 S587C 21C8 o38sce 1932 L 7,YCOUTS Ad 
CCLA@E 4ETC 2CCC 037CO0 1933 cvo 7T,0W = 
CCLABA DEOB 2311 2CC3 C3A11 03703 1934 EN OUTLINE*+72(12),0Ww+3 a 
OCLACC SAFC 2C4C 0374C 1935 L 15,ALTNEOUT Lil 
OCLAC4 CSEF 1936 BALR 14,15 UE: 
OCLACE 0204 22€2 CA56 O39F2 O236E 1937 MVC CUTLINE+25(5) M298 OM 
OCLACC C2C@ 22E8 CBCC C3I9EB 02425 1938 MVC OUTLINE4+31(9),M310 ais 
OCLAL2 D208 22F2 CASB CI9F2 102373 1939 MVC OUTLINE#41(12).m299 OM 
CClACe 587C 219C 0389C 1940 3 7+YCPSG Lv 
OC1LACC S5A7C 21AC O38A0 1941 A 7s YCUPSG WG 
OCLAEC SATC 21A4 038A4 1942 A 7,YCCS we 
CCLAE4 SATC 21C8 038C8 1943 A 7,YCOUTS ie 
OCIAEE SCTC CA4C 02358 1944 st 7, TOOL isl 
CCLAEC 4E7C 2CCC O3700 1965 cvod 7,0W = 
OCLAFC CECB 22F2 2CC3 C3I9F2 03703 1946 ED OUTLINE+41(12),0W+3 s 
CEIAFE SOFC 2C04C O374C 1947 L 15,ALINEOUT sie 
OCLAFA CSEF 1948 BALR) 14,15 Lb 
OCLAFC C204 22E2 CA56 C39F2 0236E 1949 MVC OUTLINE+25(5) M298 
OCIEC2 C224 22E€8 C&lE C39FA O242E 1950 MVC CUTLINE+31(37),M311 un 
OCIBCe 0208 23CD CASB C3ACN 02373 1951 MVC CUTLINE+68(12),M299 sd 
CCLECE 5870 21A8 O38AR 1952 L 7,YTMPSG ae 
OCLP12 SATC 21AC O3RAC 1953 A 7T+YTMUPSG WY 
OCl@1E SA7O 218C O38P0 1954 A ToYTMCS Un 
OCIBLA 5C7C CA44 0235C 1955 itd 7TyTT™M ve 
OCI@1LE SETC 2CCCc 037CO0 1956 cvo 7,0W = 
PCPs? CECE Z3ICE Z2ZCCS CIaco O37es 1957 FO OUTLINE+68(12),D0W+3 J 
CC1lB2e S56FC 2C4C 0374C 1958 L 15,ALTNEOUT ae 
OC182C CSEF 1959 BALR 14,15 ee 
CCL@2F C204 22E2 CA5S6 039F2 N236E 1960 MYC OUTLINE+25(5) »M298 Jd 
OC1#34 O2C5 22E8 CB3B 039F8 02453 1961 MVC OUTLINE*#31(6),M312 os 
CC1B3A D2CB 22EF CASB C39EF 02373 1962 MVC OUTL INE#38(12),M299 “s 
OC1B4C S587C 2184 O38P4 1963 t T»YTPSG nh 
OC1844 SATC 2188 O38FR 1964 A 7+YTUPSG Uy 
OC1B4e@ SATC 218C 0388C 1965 A 7TeYTCS ve 
OC184C SA7C 21C4 038C% 1966 A 7,YTONSOUT a 
CClO5C SO7TC CA3C 02354 1967 Si ToTT fo 
OC1B54 4€70 2CCC 037CO 1968 Cvo 7,04 BO 
OC1B5@ DEOB 22EF 2CC3 C3I9EF 03703 1969 ED OUTLINE+38(12),0W+3 = 
OCLES5E S8FC 2C4C 0374C 1970 L 15,ALINEOUT 7 
OC1862 OSEF 1971 BALR 14,15 a! 
OCLBE4S 0204 22E2 CA5S6 039F2 0236E 1972 MVC OUTLINE+25(5) 9M298 itd 
CCIBEA O22E 22E8 Ck41 C3I9FB 02459 1973 wVC OUTLINE+31(39),M313 Was 
OCl@7C C20B 231C CA5B C3A10 02373 1974 MVvC CUTLINE*71012),M299 id 
CCl@TE S587C 214C 0384C 1975 t T,MWTO ae 
OCLE7TA SETC 2CCC 037CO 1976 CvD 7,0W ne 
OCL@7E DECB 231C 2CC3 C3A10 03703 1977 FO OUTLINE+71012),0W+3 oe 
OC1884 58FC 204C 0374C 1978 L 15,ALTNEOUT CIN 
cc1eee CSEF 1979 BALR 14,15 ee 
OC16@A C204 22E2 CA5E C3I9E2 0236E 198C MVC OUTLINE#25(5) 44298 Lt 
CCLA9C O22C 22E8 CBES8 C39FB 02480 1981 WVC OUTLINE+31(45),M314 CPL 
OCLB9E D2Z0B 2315 CA5B C3A15 02373 1982 MY¥C OUTLINE+76(12),M299 Sy 
OC1BSC 5870 2150 03850 1983 L T,MWT DPQ aie 
OCIBAC 4E7O 2CCC 037CO 1984 cvo 7,0W a 
OC1BA4 DECB 2315 2CC3 C3A15 037C3 1985 ED OUTLINE+76(12),DWe3 LM 
OO1BAA SAFO 204C 0374C 1986 L 15, AL INEOUT a 
OC1@AE CSEF 1987 BALR 14,15 UA! 


19886 #@ THE NEXT SECTION ACCUNULATES ALL YEARLY FIGURES AND WRITES 
1989 #@ CUMULATIVE DATA ¥O DATE 


ooleec 9289 22C8 039C8 1990 MVI CARCONT»X*898 
OC1E84 0204 22E2 CA56 039E2 0236E 1991 MVC - OUTLINE+25(5) 298 

OC1EBA D21C 22€8 CB95 0C39E8 024AD 1992 MVC QUTLINE*31(17),M315 

OC1BCC D208 22FA CASB 039FA 02373 1993 PVC OUTLINE+49(12),M299 

OC1BCE 5870 214C 0384C 1994 L 7,MWTD MATERIAL WASTED TO DATE 
OC1BC4 5A70 2150 03850 1995 A 7+MWTOPQ 

OC1BCE 4E7C 2cCcC 03700 1996 CVO 7, 0W 

OO1L@C2 DEOB 22FA 2CC3 C39FA 03703 1997 ED OUTLINE#49(12),OW+3 

OC1BCEe 58FO 204C 0374C 1998 L 15, AL TNEQUT 

OCIBDC OSEF 1999 BALR 14,15 

OC1BDE 9211 22C¢8 039C€8 2000 MVI -CARCONT,)X* 11° 

OC1BE2 0224 22DE CRAG 0390E O24RE 2001 MVC  OUTLINE+21(37) »M316 

OCIBE® 0207 2304 2548 C3AC4 03C4B 2002 MVC OUTLINE#59(8) »BYM+6 


OCIBEE 1877 2003 SR Ty? 


Loc 


OCIBFC 
OCiGF4 
cCcleFe 
OC1AFE 
ocicc2 
Ocicc4 
OCICCA 
Oc1cic 
ociclé 
OCICIA 
ocicic 
Oc1C22 
001C2é 
Oc1C2E 
0C1C34 
CC1C3A 
CC1C3E 
ocic42 
OC1C4E 
OC1C4A 
ocicse 
oc1c54 
ocicse 
ocicsc 
OCICEC 
OCc1CE6 
OC1C6A 
CC1ICéE 
ocic72 
Ccic7eé 
ocic7c 
ocicec 
oc1ce2 
ociceeé 
ccicee 
oc1c94 
CC1C9A 
CCICAC 
OC1CA4 
cc1cae 
OCICAC 
ocicec 
CC1cPrE 
CC1CBA 
OCICBE 
ocicc2 
ocicce 
Ociccc 
ociccc 
Oc1icc4 
Ocicce 
Ociccc 
OC1CE2 
CCICEE 
OCICEe 
Ocicec 
OCICF2 
Ocicre 
OCICFE 
OCc1CC4 
OCLCCA 
OCLCCE 
ocicl2 
oc1cleé 
OCICLA 
ocic2c 
ocic24 
ocic2eé 
ocio2c 
Oc103C 
Oc1C3€E 
OC1O3A 
OC103E 
OC1IC42 
OCIC4E 
Oci64C 
ocicsc 
cc1ics2 
OcICSé 
oc1osc 
ccicé2 
ccicée 
OC106C 
oc1c7c 
Oc1cT74 
ocic7e 
OCLCT7E 
ocice2 
OC1084 
QO1CeA 
oo1cse 
OcIC9é 
QO1C9A 
OC1OSE 
Oc1CA2 
OCICAE 
OC1DAC 
ocicec 
oci062 


CATA PROCESSING CONTROL SECTION (MINEOP) 


OBJECT CODE 


4370 
4ETC 
DEO3 
58FC 
OSEF 
D20C 
D2CE 
020C 
58FO 
C5EF 
0209 
D20€é 
O2ce 
D208 
0208 
587C 
5A7C 
507C 
4E7C 
OE0B 
587C 
5ATC 
5070 
4E7C 
DECB 
587C 
5ATC 
5c70 
4ETC 
DECB 
58FO 
CSEE 
0209 
D2ce 
0208 
D2ce 
0208 
587C 
5A7TC 
5C7C 
4E7C 
CEOB 
587C 
5A70 
5Cc7C 
4ETC 
CEOB 
5870 
SATC 
5C70 
4E7C 
CECB 
58FC 
CS5SEF 
9219 
C2CcS 
02Cc3 
02ce8 
o2ce 
C2cP 
587C 
5ATC 
sc7c 
4ETC 
DECB 
587C 
5ATC 
5c7C 
4ETC 
CECB 
587C 
SATC 
5c70 
4E70 
OECB 
S8FC 
OSEF 
9211 
0209 
0217 
02ce 
587C 
5A70 
5070 
4ETC 
OECB 
58FO 
OSEF 
0209 
O21E 
D208 
5870 
5ATC 
5070 
4E7C 
OECB 
58FC 
OSEF 
0209 


2272 
2ccc 
2308 
204C 


22E7 
22FB 
2311 
2C4C 


22CF 
220A 
22€7 
22FC 
2a1t 
2154 
219¢ 
2154 
2ccc 
22E7 
2158 
21AC 
2158 
2ccc 
22FC 
ZLSC 
21A4 
215C 
2CCC 
Zan) 
2C4C 


22CF 
220A 
22ET 
22FC 
rae MG | 
2160 
21A8 
216C 
2ccc 
22E7 
2164 
21AC 
2164 
ZECC 
22FC 
2168 
21BC 
2168 
2ccc 
2311 
204C 


22C8 
2265 
22CA 
22E€7 
22FC 
2311 
216C 
21B4 
21€C 
2ecc 
2PEer 
Z17C 
21be@ 
217C 
2ccc 
22F-C 
2174 
218C 
2174 
2ccc 
2311 
2C4C 


22C8 
22CC 
22E€8 
23C1 
219C 
21CC 
219C 
2ccc 
2301 
2C4C 


22C0 
22E€8 
2308 
2194 
2104 
2194 
2cco 
2308 
204C 


2200 


2CCé 


CATL 
CATE 
CcaAeo 


CA4C 
CASA 
CA5B 
CASB 
CA5B 


2cc3 


2cc3 


2cc3 


CA4C 
CAAL 
CAS5B 
CA5B 
CA5B 


2€c3 


2cc3 


2c¢3 


CA4C 
CAAA 
CASB 
CASR 
CASPB 


2Cc3 


2cc3 


2cc3 


CA4C 


CAAE 


CA5B 


2cc3 


CA4C 


CAC6 


CA5B 


2cc3 


CA4C 


ADoRI 


O3AC8 


C39ET7 
C39FB 
C3A1l 


O39CF 
C390A 
O39E7 
C39FC 
C3AIL 


C39€7 


C39FC 


C3AlL 


039CF 
C39DA 
C39E7 
C39FC 
C3A1L 


C39E7 


C39FC 


C3A11L 


C39C8 
€39CE 
C39DA 
C39FT 
C39FC 
C3All 


C39FT 


C39FC 


C3Al1 


c39C8 
C39C0 
C3I9E8 
C3ACL 


C3A01 


03900 


C39FA 


O3AC8 


C3AC8 


C3900 


ACDR2 


03972 
037C0 
03706 
0374C 


02389 
02396 
023A5 
0374C 


02364 
02382 
02373 
02373 
02373 
03854 
0389C 
03854 
03700 
037C3 
03858 
038A0 
03858 
037C0 
03703 
0385C 
038A4 
0385C 
037C0 
03703 
0374C 


02364 
02389 
02373 
02373 
02373 
03860 
O38A8 
03860 
03700 
03703 
03864 
O38AC 
03864 
037CO0 
037C3 
03868 
03880 
03868 
037C0 
03703 
0374C 


02364 
023C2 
02373 
02373 
02373 
0386C 
038B4 
0386C 
037C0 
037C3 
03870 
03688 
03870 
03700 
03703 
03874 
036e8C 
03874 
037C0 
037C3 
0374C 


02364 
023C6 
02373 
03890 
038CO 
03890 
037C0 
037C3 
0374C 


02364 
0230€ 
02373 
03894 
038C4 
03894 
037C0 
03703 
0374C 


02364 


STMT 


2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 


SOURCE STATEMENT 


1c 
Cvo 
€0 

L 
BALR 
MYC 
MVC 
MVC 
E 
BALR 
MVC 
MVC 
MYC 


T,YEAR 

7,0W 
OUTLINE#+63(4),0W+6 
15, ALINEOQUT 

14,15 , 
OUTLINE4+30(13),M301 
OUTLINE+50(15) M302 
OUTLINE#72(13),M303 
15,ALINEOUT 

14,15 
OUTLINE+6(10),M297 
OUTL INE+17(7) .M304 
OUTL INE#30(12) ,M299 
OUTLINE+51(12),M299 
OUTLINE4+72(12),M299 
7,CCPSG 

7,YCPSG 

7,CCPSG 

7,0W 
OUTLINE+30(12),DW+3 
7,CCUPSG 

7,YCUPSG 

7,CCUPSG 

7,0W 
OUTLINE#51(12),0W+3 
7,CCCS 

7,YCCS 

7,CCCS 

7,0W 
OUTLINE+72(12),0W+3 
15,ALINEOUT 

14,15 
OUTLINE+6(10) M297 
CUTLINE417(9),M305 
OUTL INE#30(12),M299 
OUTLINE451(12),M299 
OUTLINE+#72(12),M299 
7,CTMPSG 

7,YTMPSG 

7,CTMPSG 

7,.0W 
QUTLINE*30(12),0W+3 
7,CTMUPSG 

7+YTMUPSG 

7,CTMUPSG 

7,0W 
CUTLINE#51(12),0W+3 
TyCTMCS 

7,YTMCS 

7,CTMCS 

7,0W 
OUTLINE+72(12),0W#3 
15,ALTNEOUT 

14,515 

CARCONT,X*19° 
OUTLINE+6(10),M297 
OUTLINE*1L7(4) ,M306 
OUTLINE+30(12),M299 
OUTLINE+51(12),6299 
OUTLINE+72(12),M299 


7,0W 
OUTLINE+30(12),DW+3 
7,CTUPSG 

7+YTUPSG 

Ty CTUPSG 

7,DW 
OUTLINE+51(12),0W+3 
T,CTCS 

T+YTCS 

7,CTCS 

7,0W 
OUTLINE#+72(12),0W+3 
15, AL INEOUT 

14,15 

CARCONTeX*11° 
OUTLINE#20(10),4297 
OUTLINE+31(24),M307 
OUTLINE+56(12).M299 
TrCTRCST 

T,YTRCST 

T,CTRCST 

7,0W 
OUTLINE+56(12),0W+3 
15, AL INEOQUT 

14,15 
OUTLINE+20(10),M297 
OUTLINE+31(31),M308 
OUTLINE+63(12),M299 
7,CTONSOUT 

Te YTONSOUT 
1,CTONSOUT 

7,0W 
OUTLINE#+63(12),DW+3 
15,AL TNEOUT 

14,15 
OUTLINE#20(10),M297 


PAGE 31 


FOLAUG68 


CUPLVLATIVE COST Psu 


CUMULATIVE COST UPSG 


cComvuLtaruE cost CS 


CuUMYLATIVE TON-MILES PSG 


COMULATIVE TON- MILES LPSG 


CUMULATIVE TON- MILES cs 


CUMULATIVE TONS PSs 


cvMYUL ATIVE TONS Vese 


SOMULATIVE TONS cs 


COMOLETIVE TRANSPORTATION COST 


CYMLLATIVE TONS FROM OvTSIDE 


5/30/69 


Lec 


Oc1CBS 
OCLOGE 
ocicc4 
ocicce 
Ociocc 
OcLoEC 
ocicc4 
OCiCCA 
OCILCCE 
Ocicec 
CC1ICEE 
OC1LCEC 
OCc1lOF2 
CCiCFE 
OCICFA 
OCICFE 
CC1lEC2 
ociece 
CcC1LECC 
CCLECE 
OC1EL4 
CCLEIA 
CC1E2C 
CClE24 
ocieé2e 
Oc1e2C 
Ocle3c 
CC1LE2E 
OC1lE3A 
OC1E3C 
OC1E42 
OclEe4e 
OCLEGE 
OC1E52 
CCLESE 
OC1E5A 
OCIESE 
OC1LE64 
ccl1eéee 
OCLEEA 
CCLETC 
OCLETE 
OcLETC 
ocleec 
Oclees 
ocleee 
Ocleec 
CC1lES2 
OcLESE 
oclese 
CCLEGE 
OCLEAS 
OCLEAA 
OCLEAE 
OCLEB2 
OClE®E 
CCLEBA 
CCiecc 
OCLEC4S 
Oc1ECE 
CCLECA 
OCLECC 
OcLECcE 
CCLECC 
CCLEEC 
OCIEE4 
Ocleee 
OCLEEC 
OCLEFC 
OCLEFE 
CCLEFA 


OCLEFC 
OcLFCC 
OC1FCE 
CCLFCC 
OCLFCE 
OCIF12 
OCcIF1é 
OCI1FIC 
CO1lF2C 
OCLF22 
OOLF2E 
OC1F2C 
OCLF3C 
OC1F32 
OC1F3e 
OCIF3E 
OC1F42 
OC1LF44 
OCLF4A 
OCLF4E 
OC1FS5SC 


OC1F54 
OCIF5A 
OCIF6C 
OCIFEE 
OCIF6A 


CATA PROCESSING CONTROL SECTION {MINEDP} 


OBJECT CCOE ADDRL ACOCR2 STMT 
0227 22€8 CAE5S 039€8 O23FD 2103 
C20B 2311 CA5B C3A11 02373 2104 
5870 2198 03898 2105 
SA7C 21C8 038C8 2106 
5070 2198 03898 2107 
4E7C 2CCC 037CO 2108 
OEOB 2311 2CC3 O3A11 03703 2109 
58FCO 2C4C 0374C 2110 
CSEF 2111 
0209 2200 CA4C C3900 02364 2112 
O2C8 22E8 CBCD 039EF8 02425 2113 
O2CB 22F2 CASB 039F2 02373 2114 
587C 2184 03884 2115 
5A7T0 CA4C 02358 2116 
5C7C 2184 03884 2117 
4E7TC 2CCC 037CO 2118 
DEOB 22F2 2CC3 C39F2 037C3 2119 
58FO 204C 0374C 2120 
CSEF 2121 
0209 2270 CA4C C390DN 02364 2122 
0224 22€8 CB16 C39EB 0242E 2123 
D2CB 2300 CASB C3ACD 02373 2124 
587C 2168 03ee@8 © 2125 
SATC CA4S4 0235C 2126 
5C7C 2188 03888 2127 
4E7TC 2CCC 037CO 2128 
DECB 23CD 2CC3 C3ACN 037C3 2129 
58FC 2C4C 0374C 2130 
CSEF 2131 
0209 22fD CA4C C39N0 02364 2132 
0205 27€8 C838 O039E8 02453 2133 
O2CB 22EF CASB C3I9EF 02373 2134 
587C 218C 0388C 2135 
SATC CA3C 02354 2136 
S5C7C 218C 0388C 2137 
4E7TC 2CCC 037CO 2138 
DECR 22EF 2CC3 039FF O3703 2139 
S8FC 2C4C 0374C 2140 
C5EF 2141 
0209 2200 CA4C C39CN 02364 2142 
O22€ 22E8 C@41 C3I9EB 02459 2143 
C2CB 231C CASB C3A10 02373 2144 
5870 217° 03878 2145 
SATC 214C 0384C 2146 
5C7C 2178 03878 2147 
4E7C 2CCC 937CO 2148 
BEOR (231€ 2CC3 CIAO OS7C3 2149 
5BFO 2C4C 0374C 2150 
CSEF 2151 
0209 22fC CASC C3I9CO 02364 2152 
C22C 22F@ CPEB O39EB 02480 2153 
C2CB 2315 CA5B C3A15 02373 2154 
$87C 217C o3a7C «62155 
SATC 215C 0385C 2156 
5070 217C 0387C 2157 
4E7C 2cCcCCc 037CO 2158 
CECH 22rS 2CC3 C3IA15 037C3 2159 
5BFC 2C4C 0374C 2160 
OSEF 2161 
9289 22Ce8 C39C8 2162 
02C9 2200 CA4C C39CN 02364 2163 
O210 22EF@ CBSS C39EB 024AN 2164 
O2C@ 22FA CAS5BR CISFA 02373 2165 
587C 21eC 03880 2166 
SATC 214C 0384C 2167 
5A7TC 2150 03850 2168 
5070 21°C 03880 2169 
4E70 2CCC 037CO 2170 
DECB 22FA 2CC3 C39FA 03703 2171 
S8FO 2C4C 0374C 2172 
CSEF 2173 

2174 
9219 22C8 C39C8 2175 
O21F 22€C CPCB C39EO 024E3 2176 
O2C7 2304 2548 C3AC4 03C4R 2177 
1877 2178 
4370 2272 03972 2179 
4E7TC 2CCC 037CO 2180 
OEC3 23C8 2CCé C3A08 03706 2181 
5@FC 204C O374C 2182 
OSEF 2183 
9211 22C8 c39C8 2184 
O2CB 22EF CC1L6 C39FF 0252E 2185 
5SBFO 204C 0374C 2186 
OSEF 2187 
0203 22€7 CBEB C39F7 025C3 2188 
O20C 22F4 CREF C39F4 02507 2189 
5B8FC 2C4C 0374C 2190 
CSEF 2191 
02C3 CA4B 2CEC C2360 03760 2192 
587C 2148 03848 2193 
1277 2194 
478C C6ac OLFAS 2195 

2196 
O02C3 CA48 2148 C2360 03848 2197 
0209 22€4 2417 039F4 03817 2198 
D2CB 22F4 CASB 039F4 02373 2199 
4887 cCcCOo Oco0d0 2200 
4EBC 2cco 037CO0 2201 


SOURCE STATEMENT 


MVvC OUTLINE#31(40),M309 
MVC OUTLINE4#72(12).4299 
L 7,CcOuTS 

A 7,YCOUTS 

sT 7,CCOUTS 

cvo 7,0W 

ED OUTLINE#+72(12),0We3 
L 15, AL INEOUT 

BALR 14,15 

MYC OUTLINE+#20(10),M297 
MYC OUTLINE#31(9),M310 

MYC OUTLINE+#41(12),M299 
L 7+TOTCOST 

A 7,TDOL 

st 7,TOTCOST 

cvod 7,0W 

—D OUTLINE+41(12),0W43 
L 15, AL TINEOUT 

BALR) 14915 

MYC OUTLINE+20(10),M297 
MYC OUTLINE*#31(37),M311 
MYC OUTLINE+68(12),M299 
L 7,TOTTM 

A 7eTT™M 

ST 7ToTOTTM 

CvO 7,0W 

ED QUTLINE+68(12),DW#3 
L 15,ALTNEOUT 

RALR 14515 

MVC OUTLINE+20(10),M297 
MVC OUTLINE*31(6) .M312 

MVC OUTLINE+38(12) 98299 
Lt 7,TOTTONS 

A T,TT 

ST 7,TOTTONS 

cvo 7,0W 

ED QUTLINE+38(12),0w+3 
t 15, AL INEOUT 

BALR) 14,15 

MVC OUTLINE+20(10)—M297 
MVC OUTLINE+31(39),M313 
MVC OUTLINE+71(12),M299 
L 7,CMWTO 

A 7+MWTD 

ST 7,CMWTD 

Cvo 7,0W 

ED OUTLINE471(012),0W+3 
LE 15,ALTINEOUT 

PALR 14,15 

MYC OUTLINE+20(10),M297 
MVC OUTLINE#31(45)5M314 
MVC OUTLINE+76(12),M299 
iu 7,CMHTOPQ 

A 7,MWTOPQ 

ST 7,CMWTDPQ 

CVD 7,0W 

ED OUTLINE+76(12),0W+3 
1 15+ALINEOUT 

PALR) 14,15 

MMVI CARCONT,X*89° 

MYC OUTLINE#20(10),M297 
MVC OUTLINE*31(017),M315 
MVC OUTLINE4+49(12)5M299 
L 7, TOTMATLW 

A 7T,MWTD 

A 7yMWTOPQ 

sT 7,TOTMATLW 

Cvo 7,0W 

ED OUTLINE+49(12),0We3 
L 15, AL INEOUT 

BALR 14,15 


#e THE NEXT SECTION WRITES USAGE AT 


MV CARCONT,X*19* 
MVC OUTLINE+23(32),M317 
MYC OUTLINE+59(8) »BYM+6 
SR 7,7 
Ic 7, YEAR 
CVD 7,0W 
ED OUTLINE +63(4) ,DW+6 
LE 15,ALTNEOUT 
BALR 14,15 
MVI CARCONT,X* 11° 
MVC OUTLINE+¢38(12),M321 
L 15,ALTNEOUT 
BALR 14,15 
MVC OUTLINE+30(4) .M318 
MVC OUTLINE+43(13),M319 
L 15, AL TNEQUT 
BALR 14915 
MVC ENL(4),MINONE 
L 7,»FQADY 
LTR Ty? 
BZ NNOWA 

® AT THIS POINT, AT LEAST 1 NEW Q 
MVC ENL(4) »FQADY 

NOL MVC OUTLINE#27(10),M3541 
MVC OUTL INE#43(12),M299 
LH 11,017) 
Cvo 11,0W 
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FOLAUG68 5/30/69 


ComvLATIVE Cost Fom ovTsiDe 


Teta. cost 
Jove T]WNS MATL WhTeED 
Ar Q's 


CYMULATUWE MATL WASTED 
To DATE 


ComvL ATIVE Mere 
AT Po's 


wAsTtED 


TotAL «MATL WwasTeED 


QUARRIES DURING YEAR 


Set, ENGaS =1 
LOAD REG7 WITH ADDR LST Q ADDED 
WERE ANY Q*S ADDED DURING PREV YR 


IF NOT, GO TO NNQWA 
WAS ADDED 
SET ADDR OF FIRST Q ADDED 


5 


LOC 


OCLFEE 
OCLF74 
oclF7e 
OC1LF?C 
OCLFe2 
OCLFEE 
OCIFEA 
CCLFOC 
CC1F94 
CC1LFSE 
CC1F9A 
QO1LFSC 
OCIFAC 
OCLFAS 
OCLFAA 
OCI1FAE 
OC1lFe2 
CCLFB4 
OCLFBE 
OC1FBC 
OCc1FCC 
CCLFCE 
OC1FCA 
CCLFCC 
OC1FCC 
CC1FC4 
eciFce 
CCILFCE 
CCLFES 
OcleEe 
OCIFEC 
OCLFF2 
OCLFFE 
OCIFFA 
oc2ccce 
oc2cc4 
oc2cce 
Oc2cce 
oc2c12 
oc2cl4 
ocacie 
oo2cic 
0C2C22 
oc2c2é 
oc2c2e 
ec2ce2c 
Oc2C32 
OCc2C3¢é 
oc2c32C 
Oc2c4Cc 
OC2C44 
OC2C4A 
oc2csc 
Oc2C54 
oc2cse 
Oc2cS5E 
Oc2Ccé2 
OC2CE4 
oc2cée 
oc2CéEC 
OC2céCc 
OC2CEE 
oc2c72 
oc2c7eé 
OCc2CTA 
oc2cec 
oc2ce4 
oo2cee 
OC2CB8A 
OC2c8E 
0C2092 
Oc2cseé 


OC209A 
oc2csc 
OC2CcAC 
OC2CA2 
CC2CA4 


OC2CAB 
OC2CAC 
oc2cec 
Oc2CcB84 
cc2cee 
Oc2CceeE 
oc2cc2 
OC2CCE 
oc2cca 
OC2CcCcE 
oc2cce 
Oc2cce 
OC2CCA 
cc2cce 
OO02CE2 
OC2CEE 


OC2CEA 
OC2CEE 
OC2CF2 


DATA PROCESSING CONTROL SECTION (MINEDP) 


OBJECT CODE 


DEO3 
48B7 
4EBC 
OEC3 
58BC 
4EBO 
Oe€0B 
58FO 
OSEF 
587C 
1277 
474C 
4TEC 
0219 
9219 
58FO 
CSEF 
91LOF 
478C 
9211 
f217 
58FC 
CSEF 
5870 
597C 
478C 
02c9 
02ce8 
48B7 
4EBC 
0EG3 
48B7 
4EBC 
CEC3 
58RC 
4EBC 
CECB 
58FC 
CSEF 
5870 
4TFC 
O21eF 
S8FC 
CSEF 
587C 
cs5cl 
47eCc 
C2c3 
4880 
4EBC 
DEC3 
0208 
5eac 
4EBC 
CEOR 
S8FC 
OSEF 
417C 
4TFC 


1844 
434C 
414C 
424C 
Osco 
472C 
585C 
1255 
478C 
4TFC 
9101 
478C 


1BE6 
4360 
Cé6éC 
1266 
4720 


436C 
4260 
5850 
4TFO 
OS5CC 
47T8C 
91FF 
478C 
58FC 
OSEF 
ek 
S6CF 
4FBO 
42BC 
94CO 
4TFC 


96FF 
5eso 
58FO 


22E4 
ccc2 
2ccc 
22EA 
TC4C 
2ceco 
22F4 
2c4C 


7034 


Cé69C 
Cé42 
22E8 
22c8 
204C 


226C 
C154 
22C8 
22ED 
2C4C 


2064 
CA4B 
C7C4 
2264 
22F4 
cccc 
2ccc 
22E4 
ccc2 
2ccc 
22EA 
7TC4C 
2ccc 
22-4 
2C4C 


7034 
Cé6ee 
rare a 
2Cc4C 


2ccc 
7ccc 
C754 
22E7 
7ccc 
2ccc 
22€7 
22F4 
7ccc 
2ccc 
22F4 
2c4C 


7C1Cc 
C714 


2272 
4CCl 
CHESS fd 
2272 
CACA 
2C64 


C77A 
C7AC 
5cC5 
C798 


502A 


C794 


24C7 
502A 
5034 
C77C 
2272 
C702 
2274 
C9F8 
2048 


2cCG 
2cc7 
2ccc 
2273 
2274 
CTAC 


2274 
2010 
2048 


2CC6 


2€C6 


2C€C3 


CBFC 


cC22 


2417 
CASB 


2cCcé 


2cCcé 


20C3 


22€6 


2273 


2244 


ADDRI 


039E4 


C39EA 


C39F4 


C39E8 
c39C8 


0396C 


c39C8 
C39ED 


C39E4 
O39F4 


C3I9E4 


C3ISEA 


C39F4 


C39E7 


cccco 


O39E7 


CISET 
C39F4 


C39F4 


C3972 


ccccs 


C3972 


C3974 


c37CcOo 
C3707 


03974 


C3974 


ADOR2 


03706 
oco02 
03700 
03706 
oco4c 
03700 
03703 
0374C 


00034 


OLFBS 
OLF5A 
02514 


0374C 


0206C 


0253A 
0374C 


03764 
02360 
0201C 
O3B17 
02373 
oco0oo 
03700 
037C6 
ocad2 
03700 
03706 
oco4c 
037C0 
037C3 
0374C 


00034 
O1FCO 
02552 
0374C 


0370C 
03760 
0206C 
02587 
occco 
037CO 
037C6 
02373 
occoc 
037C0 
037C3 
0374C 


oco10 
0202C 


03972 
occol 
03972 
03566 
02322 
03764 


02092 
02088 


02080 


OCO2A 


O20AC 


03807 
0002A 
0C034 
02088 
03973 
O20EA 


02310 
03748 


03977 


03700 
03973 


020B8 


03710 
03748 


STMT 


2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 


SOURCE 


NNOQWA 


DONWNO 


OLOQL 


OPROO 


AWOWOQ 


DONTPR 


PPOLTEST 


TQAPP 


STATEMENT : FOLAUG68 


ED OUTLINE+27(4) ,DW+6 
LH 11,2(7) 

cvo 11,0W 

ED OUTLINE+33(4),DW+6 
L 11,76(0-7) 

Cvod 11,0W 

ED OUTLINE+43(12),D0W+3 


L 15, AL ITNEOUT 

RALR 14915 

t 75521057) LOAD REG? WITH ADOR NEXT Q IN CHAIN 
LTR ToT ARE WE DONE 

BM DONWNQ IF YES GO TO DONWNQ 


8 NOL OTHERWISE, GO TO NQL 
MVC OQUTLINE+31(26),M320 PRINT NONE WERE ADDED 
MVI CARCONT,X*19° 


L 15,AL INEOUT 
BALR 14,15 
™ PQUNFO,X*OF® DO WE WANT TO PRINT Q INFO 


BZ DONTPR IF NOT, GO TO DONTPR 
“VI CARCONT,X*11° 
MVC OUTL INE#36(24) 9M322 


L 15, AL INEOUT 

BALR 14,15 

L 7,SQCH LOAD REG7 WITH START Q CHAIN 
Cc Te ENL ARE WE DONE 


RE OPROQ IF YES, GO TO DPROQ 
¥VC OUTLINE+#27(10),M35415 

MVC OUTL INE#43(12)9M299 

LH 11,0(7) 

cvod 11,0W 

EO QUTLINE+27(4) ,DW+6 

LH 11,2(7) 

CVC 11,0W 


ED OUTLINE+33(4) ,OW+6 

L ll,76(0+7) 

cvo 11,DW 

—D OUTLINE+43(12),0W+3 

L 15,ALTNEOUT 

BALR 14,15 

L 77520007) LOAD REG7T WITH NEXT Q IN CHAIN 
8 OLDOL GO TO OLDQL 

MVC OUTLINE+30(28),M323 

L 15, AL TNEOUT 

BALR 14,15 

L 7,A0SQ LOAD REG7 WITH AODR OUTSIDE Q'S 
cLe 0(2,7),MINONE ARE WE DONE WITH OUTSID Q*S 

RE CONTPR IF YES, GO TO DONTPR 

MVC OUTLINE+30(4),M325 

LH 11,0(0,7) LOAD OUTSIDE Q NUMBER 


Cvo 11,0W CONVERT TO DECIMAL 
ED OUTLINE#+30(4) ,DW+6 
MYC OUTLINE+43(12),M299 
u 11,12(0,7) 

Ccvo 11,0W 

EO OUTLINE+43(12),0W+3 


LOAD PRESENT USAGE OUTSIDE QUARRY 
CONVERT TO DECIMAL 


e 15,ALTNEOUT 

BALR) 14915 

LA 7,16(0,7) LOAD REG7T WITH ADDR NEXT OUTSIDE Q 
B AwOWO0Q GO TO AWOWDQ 

EQU * 

SR 494 CLEAR REG 4 

Ic 4eVEAR LOAD YEAR IN REG 4 

LA 4o11094) ADD 1 TO YEAR 

STC 4,YEAR STORE UPDATED YEAR 


CLC YEAR( 1) »MAXYEAR 
BH DONESIM 


ARE WE DONE WITH SIMULATION 
IF SO GO TO DONESIM 


L 5»SQCH LOAD 5 WITH START Q CHAIN 

LTR 5+5 TS ADDR NEG, (ARE WE DONE) 

BNM TQAPP IF NOT, GO TO IS Q A PP 

B ATACTBR GO TO ATACTBR 

™ 5(U5)yX*OL® IS IT A PROCESSING PLANT 

BZ PPOLOOP IF NOT, GO TO PP DEPRECIATION LOOP 
*# AT THIS POINT IT IS A PROCESSING PLANT 

SR 696 CLEAR REG 6 

Ic 69421095) STORE LIFE PP IN REG 6 

BCTR 6,0 SUBTRACT ONE FROM PP LIFE 

LTR 656 IS LIFE GREATER THAN O 

BP SULPP IF YES, GO TO STORE UPDATED LIFE PP 


© AT THIS POINT, LIFE IS 0 AND A NEW PP MUST BE PURCHASED 


SULPP 
PPDLOOP 


ATACTBR 


Ic 6,LNPP LOAD REG6 WITH LIFE NEW PR PLT 
STC 624210,5) STORE UPDATED LIFE 

L 5252(0,5) LOAD 5 WITH ADDR NEXT Q 

B PPDLTEST GO TO PPOLTEST 

CLC YEAR, YRNCTBR ARE THERE ANY CARDS TO BE READ 
BE SETSW IF SO, GO TO SETSW 

™ SWITCHsX*FFS TS SWITCH LLILIIIL 

BZ BEGINITT IF NOT, GO TO BEGINITT 

L 15,ACARDIN READ YEAR NEXT CARDS ARE TO BE READ 
BALR 14,15 td 

PACK OW(8),INPUT(2) PACK YEAR 

or OW+7,X*OF® MAKE BLANK A 0 

CcvB 11,0W CONVERT TO BINARY IN REGLL 

STC 1l,YRNCTBR STORE IN YR NEXT CARD TO BE READ 
Nt SWITCH,X*O00* SET SWITCH = 00000000 

B ATACTBR GO TO ATACTBR 


# AT THIS POINT, AT LEAST L INTERMEDIATE CARD IS TO BE READ 


SETSW 


RINTCO 


al SWITCHyX*FF® 
L 8, AMATRIX 
L 15,ACARDIN 


SET SWITCH = LLLILLIL 
LOAD REGS WITH ADDR MATRIX 
READ INTERMEDIATE CARD 
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LOC OBJECT CODE ADORL ADCR2 STMT SOURCE STATEMENT : FOLAUG68 5/30/69 
QC20FE OSEF ; 2301 BALR 14,15 a 
OC2cFe 0501 2277 2275 C3977 03975 2302 cuLC INPUT(2),STARSTAR COMPARE WITH ## FOR END OF DATA SET 
OC20FE 4780 C9F8 02310 2303 BE BEGINITT IF END DATA SET, GO TO BEGINITT 
2304 # AT THIS POINT WE HAVE NOT REACHED THE END OF THE DATA SET NOR IS 
OC2102 F272 2CC0O 2277 C3700 03977 2305 PACK OW(8),INPUT(3) PACK ROW 
OC21C&@ 960F 2CC7 C3707 2306 or DW+7,X"OF® MAKE BLANK A O 
OC21CC 4FBO 2C00 03700 2307 CVB 11,0W CONVERT TO BINARY IN REGL1 
OC211C 4CBO 226E 0396E 2308 STH 11, 1O0ROW STORE IN IDOROW 
0C2114 F272 2CCO 227A C37CO O397A 2309 PACK OW(8), INPUT+3(3) PACK COL 
OC211A 960F 2007 C3707 2310 or DW+7,X*OF® MAKE BLANK A O 
OcC211E€ 4FBC 2CcCC 03700 2311 CvB 11,0W CONVERT TO BINARY IN REGL1 
0C2122 40BC 227C 03970 2312 STH 11, 1O0COL STORE IN IDCOL 
OC212€ 954C 2270 C3970 2313 cLI INPUT+#6,C* * IS ZONING LAW BLANK 
OC212A 478C C834 O214C 2314 BE OCZL IF SOs GO TO OCZL 
OC212E C2CC 23F8 2270 O3AFB 03970 2315 MVC ZLAW( 1), INPUT4#6 SET ZONING LAW CONFIGURATION 
2316 CALL SETZL SET ZONING LAW CONFIGURATION 
0C2134 2317+ CNOP 0.4 
0C21324 47FC C824 0213C 2318 B *+#8 BRANCH AROUND VCON 
002138 COCCCCCC 2319+THBOOL5B DC V(USETZL) ENTRY POINT ADDRESS 
00213C S58FC C820 02138 2320¢ 8 15, THBOO158 LOAD 15 WITH ENTRY ADR 
OC214C OSEF 2321+ BALR 14915 BRANCH TO ENTRY POINT 
0C2142 O2CO 23FE 23F9 C3AFE O3AF9 2322 MVC IDZL{(1),ZLAWD AND MOVE TO IO2ZL 
OC214& 47FC Ce38 02150 2323 8 ZLDET GO TO ZLDET 
OC214C 924C 23FE C3AFE 2324 OCZL MVI IOZL,c* * SET IDZL = BLANK 
OC215C 96FO 2298 C3998 2325 ZLOET or INPUT 4#36,X*FO® CONVERT DEVFO BLANK TO O IF NECESARY 
CC2154 95FC 2298 03998 2326 CLI INPUT +#36,X*FO® IS A DEVELOPMENT FORECASTED 
OC215® 478C C7CA O20F2 «2327 BE RINTCD IF NOT, GO TO RINTCD 
2328 « AT THIS POINT A DEVELOPMENT IS FORECASTED 
OC215C F27C 2CCC 227E C370C O39TE 2329 PACK OW(8),INPUT#7(1) PACK If0CC 
OC21LE€2 S6CF 2CC7 C3707 2330 or OW+7,X*OF® 
OC2Z1€é 4FBC 2CCC 037CO 2331 CcvB 11,0W 
OC216A 42BC CCA3 02588 2332 STC 11, fO0L0CC STORE fOCC IN IDIOCC 
OC216E F273 2CCO 229F C37CO 0399F 2333 PACK DW(8),INPUT440(4) PACK PROCESSED SEG TO COMPLETION 
0C2174 96CF 2CC7 c37c7? 2334 ot DW+7,X*OF* MAKE BLANK A O 
oc217e@ 4FBC 2ccc 037CO 2335 CvB 11,0W CONVERT TO BINARY IN REGLIL 
OC217C IBAA 2336 SR 10,10 CLEAR REG 10 
OC217E S5SCAC 2144 03844 2337 M 10, THOUSAND MULTIPLY BY 1000 
OC2182 S5CAC 2CC8 O37C8& 2338 st 11, 1O0PSGTC STORE IN IDPSGTC 
CC21@€ N2CC 23F4 2243 O3AF4 03943 2339 MVC QCA( 1)» INPUT+44 MOVE QUALITY TO QCA 
2340 CALL SETQUAL SET QUALITY 
cc21ec 2341+ CNOP 024 
CC218C 47FC C&a7C 02194 2342+ 8 #+#8 BRANCH AROUND VCON 
ec2is¢e ccceccccc 2343+THBOOL6B OC V(SETQUAL) ENTRY POINT ADDRESS 
OC2194 S8FC Ce7e 02190 2344¢ L 15, THBOO1L68 LOAD 15 WITH ENTRY ADR 
CC21S@ CSEF 2345+ BALR 14,15 BRANCH TO ENTRY POINT 
CC219A D2CC 24CC 23F5 C3BCO O3AF5 2346 MVC IDMOPSG(1),QCAD MOVE TO IDMQPSG 
OC21AC F272 2CCC 2244 037CO 039A4 2347 PACK OW(8),INPUT#45(3) PACK PERCENT SEG TO COMPLETION 
CC21AE 960F 2C07 C37cT 2348 or OW+7,X*OF® MAKE BLANK A O 
CC21AA 4FBO 2CCC 037CO 2349 CvB 11,0W CONVERT TO BINARY IN REGLIL 
CC2Z1AE 42RC 23FF O3AFF 2350 st¥c 11, 1OPERSG STORE IN IOPERSG 
CC2182 F273 2€CO 22A7 C37CO 039A7T 2351 PACK OW(8), INPUT+48(4) PACK UNPROCESSED SEG TO COMPLETION 
CC21@& SECF 2CC7 C37C7 2352 or OW+7,X*OF® MAKE BLANK A 0 
CC21e@C 4FBC 2CCC 037CO 2353 CvB L1,0wW CONVERT TO BINARY IN REGIL 
OC21CC LBAA 2354 SR 10,10 CLEAR REGLO 
OC21C2 S5SCAC 2144 03844 2355 M 10, THOUSAND MULTIPLY BY 1000 
CC21Cé 95C1 CCA C25PR 2356 cLI IOLOCCyX*O1® DOES DEVFO GO THRU OCCUPIED AREA 
CC21CA 478C C8Co 02108 2357 BE CORED IF SO GO TO ODRED 
OC21CE IBAA 2358 SR 10,10 OTHERWISE CLEAR REGLO 
Oc2icc SCAC 210C 038CO 2359 M 10,PERCFQ MULTIPLY BY PERCENT UPSG REQ'D 
OC21C4 SDAC 214C 0384C 2360 2) 10,HUNDRED AND DIVIDE BY 100 
cc2ice 2361 CORED EQU « 
oc21ce S5SORC 2CNC O37CC 2362 Sif 11, 10USGTC STORE IN IDUSGTC 
CC21CC D2CC 23F4 22A4B O3AF4 O39AR 2363 MVC QCA( 1), INPUT#+52 MOVE QUALITY TO QCA 
2364 CALL SETQUAL SET QUALITY 
CC21E2 cC7CcCc 23654 CNOP 04 
OC21E4 47FO C&l4 O2Z1EC 2366+ 8 #+8 BRANCH AROUND VCON 
oc21€e@ Cccccccc 2367#1THBOO17B DC V{SETQUAL) ENTRY POINT ADDRESS 
OC21EC S58FO Cearc O2Z1ER 2368+ L 15,1HBOOL7B LOAD 15 WITH ENTRY AOR 
OC21FC OSEF 2369+ BALR 1415 BRANCH TO ENTRY POINT 
OO21F2 O2CC 2401 23F5 C3BO1 O3JAF5 2370 MVC TOMQUSG(1),QCAD MOVE TO IDMQUSG 
OC21Fe F273 2CCC 22AC C37TCO O39AC 2371 PACK DW(8), INPUT4#+53(4) PACK CS TO COMPLETION 
OC21FE S60F 2CC7 C37Cc? 2372 or DW+7,X*OF® MAKE BLANK A 0 
OC22C2 4FBC 2CCC 03700 2373 cvs 11,0W CONVERT TO BINARY IN REGL1L 
OC22Cé 1BAA 2374 SR 10,10 CLEAR REGIO 
Oc22Ce8@ S5SCAC 2144 03844 2375 % Ld 10, THOUSAND MULTIPLY BY 1000 
OC22CC S5OBC 20EC O37EO0 2376 ST 11, 10CSTC STORE IN IOCSTC 
OC221C D2CC 23F4 22BC C3AF4 03980 2377 MVC QCA(L)» INPUT#57 MOVE QUALITY TO QCA 
2378 CALL SETQUAL SET QUALITY 
Oc221€ C7?CC 23794 CNOP 0,54 
0C2218 47FC C9C8 02220 2380+ 8 #+8 BRANCH AROUND VCON 
oo221c ccceccccce 2381¢THBOOL8B CC V(SETQUAL) ENTRY POINT AODRESS 
OC222C S58FC C9C4 0221C 2382+ L 15, THBOO18B LOAD 15 WITH ENTRY ADR 
0C2224 OSEF 23834 BALR 14915 BRANCH TO ENTRY POINT 
CC222€ D2CC 24C2 23F5 C3BC2 O3AF5 2384 MVC TOMQCS(1),QCAD MOVE TO IDMQCS 
00222C F271 2CCC 2221 C3I7CO O39R1 2385 PACK OW{8), INPUT#58(2) PACK YEARS TO COMPLETION 
0C2232 96CF 2CC7 03707 2386 or DW+7,X*OF? MAKE BLANK A O 
002236 4FBC 2CCC 037CO 2387 CVvB 11,0W CONVERT TO BINARY IN REGLL 
OC223A 42BC 24C3 03803 2388 STC 11l,1DYTC STORE IN IDYTC 
OC223— C501 BCCO 22€E COCCO 0396€ 2389 RACCHEK CLC 0(2,8),1DROW TS ROW MATRIX = ROW INTER CARD 
002244 4770 C9E6 O22FE 2390 BNE CHEKNGR IF NOT GO TO CHEKNGR 
0C224@ 0501 80C2 227C COCO2 03970 2391 cLCc 2(298),1DCOL IS COL MATRIX = COL INTER CARD 
OC224E 477C C9E6 O22FE 2392 BNE CHEKNGR IF NOT GO TO CHEKNGR 
2393 # AT THIS POINT, ROW & COL IN MATRIX = ROW & COL ON INTERMEDIATE CARD 
0C2252 9540 23FE O3AFE 2394 UGI cul IOZt»c* * WAS ZONING LAW BLANK 
CC2256 4780 C948 02260 2395 RE DONTUPZL IF YES, GO TO DONT UPDATE ZONING LAW 
OC225A C2CC B8CC4 23FE CCOC4 O3AFE 2396 MVC 4(1,8),1D2ZL UPDATE ZONING LAW 
OC22EC S5FC 2298 C3998 2397 DONTUPZL CLI INPUT +36,X*FO* 1S A DEVELOPMENT FORECASTED 
O0C2264 478C C9E6 O22FE 2398 BE CHEKNGR IF NOT, GO TO CHEKNGR 


2399 # AT THIS POINT THERE IS A DEVELOPMENT FORECASTED WHICH WILL BEGIN 


LOC 


0C2268 
OCc226C 
0c227C 
002274 
OC2278 
CC227A 
OC227A 
OC227E 
002282 
OC228€E 
OCc2284 
oc228ec 
0C228C 
oc229¢ 
002294 
CC229€ 
OC229A 
Oc22Ac 
OC22A4 
OC22A8 
OC22AC 
oc22ec 
OC2284 
oc22ee8 
Cc226C 
oc22cCc 
OC22C4 
OC22CA 
oc22cC 
CC22CE 
oc22cC 
OC2zZE2 
oc22ee 
OC22EE 
OC22F4 
OC22FA 
OC22FE 
0c23C2 
CC23Cé 
oc23ce 
oc23cc 
oc231c 
CC2314 
oc231é 


OC231€é 
CC231C 
cc232c 


0C€2322 


002322 
0C2324 
oc232e 
002325 
0C232C 
0C232C 
0C233C 


0C2232 
0C2234 
0C2238 
0C2336 
0C233C 
0C233C 
CC234C 
0C2344 
0C2346 
0C234Ah 
OC234E 
0C2352 
0C2354 
oc235e 
0Cc235C 
OC23EC 
0C2364 
OC236E 
0C2373 
OC237F 
002389 
0C239€ 
OC23A5 
0C2382 
0C2389 
0C23C2 
0C23C6 
OC23CE 
CC23FC 
002425 
OC242E 
0024523 
0C2459 
0C248C 
OC24AD 
O002486E 
OC24E32 
0c25C3 
oc25c7 


DATA PROCESSING CONTROL SECTION (MINEDP) 


OBJECT CODE 


$5co 
478C 
508c 
58FO 
OSEF 


$5C0 
478C 
5080 
SAFC 
OSEF 


9201 
5c08C 
58FO 
OSEF 
D2co 
58BC 
SABC 
5080 
58RC 
5ABC 
SCBC 
5880 
SABC 
5CBO 
D2cc 
C2cC 
C2cc 
o2cc 
c2cc 
02CC 
0203 
€2c3 
C2Cc3 


8028 
C962 
2CAC 
2C30 


8019 
C974 
209C 
202C 


8019 
2c8c 
201C 


801B 
2cD8 
8CI1C 
BOIC 
200C 
6C2C 
8C2C 
2CeECc 
8024 
8024 
BCIA 
80248 
8C2S 
802C 
802C 
8C3C 
eC4C 
8C44 
8C4e 


ADOR! 


cco2B 


coo1g9 


ccol19 


24C3 CCOIB 


CCOLA 
C0028 
cco29 
cco2c 
cco20 
c0030 
cc040 
CC044 
C0048 


2272 
24CC 
23FF 
24C1 
CCA3 
24C2 
2céc 
2céc 
2CEC 


47FC 
418°C 
588C 
12e8 
474C 
4TFC 
58FC 
CTFF 


C70A 
8054 
8CCC 


COFE 
C92€é 
2csc 


024e 
58FC 
C5EF 


2203 
2C4C 


CA18 


ccosc4 
80 
CCC9A4S 
CA14 


181¢ 
5ecCC OCC4 


47FC CA28 


C3E404E403C1E3C9 
EIDEE3CIC3 
402€202CEB2C202C 
E3D6E3C103E240C6E 
C70906C3C5E2E2C5 
E4050 70906C3C5E2 
C3C9ESE2C8C5C44C 
C4060303C109E2 
E30€056004C9C03C5 
EIC6D5E2 
E3D9C1CS5SE2070609 
E3DED05E240CEéEC9D6 
C3D6E2E340D04C1E3 
C4CED303C109E24C 
E306056CD4C9C3C5 
E3D6D5E24C7E 
ESCEN05E240E6C1LE2 
E3C6DSE240E6C1E2 
O4C1E3C509C9C1N3 
C3E4S04E4D03C1E3C9 
O4SC1E3CS509CSC103 
C7T0SC9C4 
E3D605E24004C1E3 


CC5é 03903 


ccocc 


ADOR2 


O227A 
037A0 
03730 


0228C 
0379C 
0372C 


0378C 
0371C 


03803 
03708 
oco1c 
oooic 
0370C 
occ20 
00020 
O37E0 
00024 
0C024 
03972 
038CO 
O3AFF 
03801 
02588 
03802 
03760 
03760 
03760 
O20F2 
0c054 
occco 


02316 


0223€ 
03750 


0256E 
0374C 


02330 


occc4 


02340 


0233C 
ocooc 


accco 


ST¥T 


2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452¢ 
2453¢ 
24544 
24554 
24564 
2457+ 
24584 
2459 
2460+ 
24614 
2462+ 
24634 
2464+ 
2465+ 
24664 
2467+ 
2468+ 
24694 
2470+ 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 


SOURCE STATEMENT 


# DURING THE PRESENT YEAR 


NSWIP 


NSDEVFO 


CHEKNGR 


BEGINITT 


GNFPEM 


DONESIM 


cur 
BE 
st 


43(8),xX*00! 
NSWIP 

8, AWIPTBD 
15,ASROWIP 
14,15 

e 

25(8),X"008 
NSDEVFO 

8, ADEVTBD 

15, ASRDDEV 
14,15 

o 

25(8)sX"O1" 
8,ADEVTBA 

154 ASRADEV 
14,15 

274148), 1TDYTC 
11, IOPSGTC 
11,28(0,8) 
11,28(0,8) 

11, IDUSGTC 
11,32(0,8) 
11,32(078) 

11, IDCSTC 
11+36(078) 

11, 36(0,8) 
26(1+8)»YEAR 
40(1+8),1DMOPSG 
41(198),TDPERSG 
44( 158)» IDMQUSG 
45(1,8),1DL0CC 
4811.8), 1DMQCS 
64(4,8),MINONE 


FOLAUG68 


IS IT STILL A WORK IN PROCESS 
IF NOT, GO TO NSWIP 

[F SO, DELETE IT FROM WIP CHAIN 
oe 


IS IT A DEVFO 

IF NOT, GO TO NSDEVFO 
DELETE IT FROM DEVFO CHAIN 
on 

oe 


SET DEVFO INOICATOR = 1 

STORE ADDR OF DEVFO TO BE ADDED 
ADD DEVFO 

_ be 


STORE YEARS TO COMPLETION 

LOAD REG11 WITH PROC SEG TO COMPLET 
ADD PR SEG REMAINING IN MATRIX 
STORE PROCESSED SEG TO COMPLETION 
LOAD REGIL WITH UNPR SEG TO COMPL 
ADD REMAINING FROM MATRIX 

STORE UNPROCESSED SEG TO COMPLETION 
LOAD REG11L WITH CS TO COMPLETION 
ADD REMAINING CS FROM MATRIX 
STORE CS TO COMPLETION 

SET YEAR DEVFO WILL START = 
STORE MIN QUAL PROCESSED SEG 
STORE PERCENT SEG 

STORE MIN QUAL UNPROCESSED SEG 
SET ITOCC BYTE 

STORE MIN QUAL CS 

SET QUARRY POINTERS TO MINUS 1 


YEAR 


68(4,8),MINONE ns 

72(4,8),MINONE Le 

RINTCD GO TO RINTCD 

8,84(0,8) LOAD ADOR NEXT GRID INTO REGS 
11,0(0,8) LOAD 11 WITH ROW AND COL OF GRID 
11l,Lll IS ROW AND COL NEG 

GNFPEM IF NEG, GO TO GNFPEM 

RACCHEK GO TO RACCHEK 

15,ABEGINIT LOAD REG1L5 WITH ADDR BEGINIT 

15 AND BRANCH TO BEGINIT 

* (GRID NOT FOUND, PRINT ERROR MESSAGE) 


CUTLINE*LO(L*M324) M324 
15,ALINEOUT 
14,15 


(INDCB, »OUTOCB) 

094 

1,*##12 BRANCH AROUND LIST 
AL1(0) OPTION BYTE 
AL3(INDCB) OCB ADDRESS 
AL1(128) OPTION BYTE 
AL3(OUTOCB) DCB ADDRESS 
20 ISSUE CLOSE SVC 


1,13 

13,4(,13) 

054 

*+#8 BRANCH AROUND SP4Lv 

AL1(0) SUBPOOL VALUE 

AL3(72) LENGTH 

O+*-4 LOAD SP AND LV 

10 ISSUE FREEMAIN SVC 

14,12,12(13) RESTORE THE REGISTERS 
12(13),X*FF*® SET RETURN INDICATION 
1540(0,0) LOAD RETURN CODE 

14 RETURN 

F 

F 

F 

& 

C*CUMULATIVE® 

C*TOTAL® 

X*402020206B20202068202120* 

C*TOTALS FOR® 

C*PROCESSED SEEG* 

C*UNPROCESSED SE&EG* 

C*CRUSHED STONE® 

C*DOLLARS? 

C*TON-MILES* 

C*TONS® 

C* TRANSPORTATION DOLLARS =! 

C*TONS FROM OUTSIDE GRID SYSTEM =* 
C*COST MATERIAL FROM OUTSIDE GRID SYSTEM =* 
C*DOLLARS =* 

C*TON-MILES (WITHIN GRID SYSTEM ONLY) =* 
C*TONS =!" 

C*TONS WASTED AT ZONED OUT QUARRY SITES =* 
C*TONS WASTED AT ZONED OUT POTENTIAL QUARRIES =* 
C*MATERIAL WASTED =* 

C*CUMULATIVE TOTALS UP TO AND INCLUDING* 
C*MATERTAL USED AT QUARRIES DURING® 
C*GRID® : 

C*TONS MATERIAL® 
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Loc 


oc2514 
OC252E 
CC253A 
cc2552 


OC256E 
0C2587 
oc25@8 
oc25cCc 


DATA PROCESSING CONTROL SECTION 


OBJECT CODE ADDR1I ACDR2 


OSD640D05C5E€40D08 
CSCS5SE64CD8E4C109 
DBE4CLDIDICSC5E2 
D8ESCLDIDICICSE2 


C10540C9C5C 30609 
402C212C 


STMT 


2499 
2500 
2501 
2502 
2503 


2504 
2505 
2506 


(MINEDP) 

SOURCE STATEMENT r FOLAUG68 
m320 oc C*NO NEW QUARRIES WERE ADDED* 
M321 oc C*NEW QUARRIES'® 
M322 oc C*QUARRIES 1 YEAR OR OLDER* 
M323 oc C*QUARRIES OUTSIDE GRID SYSTEM® 
M324 oc C*AN INCORRECT INTERMEDIATE INPUT CARD HAS BEEN LOCATED 

ABNORMAL END OF JOB* 
#325 oc x*40202120° 
1O010CC os x 
LTORG 
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Lec 


oc2scc 
oc2scc 
0c25C4 
oc2sce 
a025CA 
CCc25CE 
0C2502 
0c25C04 
OC25CA 
CC25EC 
OC25EE 
OC25EA 
OC25EF 
CC25F4 
oc25Fe 
CC25FA 


CC25FE 
CCc2éC2 
CC2ECE 
OC26CA 


OC26CE 
OC2é12 
OC2é1€ 


CC2é1A 
OC2é1A 
cc2é1C 
0c262C 
CC2E24 
oc2é2e 
Oc2é2C 
oc2é3C 
CC2€34 
Ce€2é28 
cc2é3C 
OC2E4C 
OC2€44 
OC2E4E 
OC2E4A 
OC2E4F 
OC2é52 
OC2E5€ 


OC2é5A 
OCc2€6C 
OC2€64 
OC2EEE 
CC2éeC 
CC2é7C 
CC2é72 
CC2E7E 
CC267A 
CC2E7E 
Oc2ée2 


CC2é8E 
OC2é@A 
OC2ée@E 
CC2694 
oc2e9e8 
oc2é9C 
CC2EAC 
OC2EA4S 
OC2EA4 
CC2EAE 
CC2EAA 
OC2EAE 
OC2éF2 
CC26RE 
OC2éBA 
OC2éBE 
Oc2éCC 


OC2EéC4 
oc2éce 


oc2écCc 
oc2écc 


CC2éC4 
oc2ece 
OC2éCC 
CC26EC 
OC2EE4 
Oc2éEe 
OC2EEC 
CC2EFC 
OC2éF4 
Oc2éFe 
OC2éFC 
ec27cc 
oc27cc 
0C27C4 
oc270e 
oc27CC 
oc271c 
Oc2716é 


SUBROUTINE FINO LOWEST COST 


CBJECT CODE ACORL 


SOEC 
183F 
58EC 
5CEC 
5ODE 
16DE 
0203 
C2Cc3 
0203 
92CC 
5850 
0203 
584C 
1Bé6 
436C 


95CC 
478C 
9504 
478C 


9222 
4TFC 
9242 


1244 
474C 
437C 
441C 
47TEC 
$104 
4710 
4376 
4410 
4TEC 
5eBC 
12ReP 
470C 
587C 
SATE 
597C 
472C 


C2c3 
SBFC 
CSEF 
0203 
58FC 
CSEF 
§eac 
4ABC 
4A80 
598C 
472C 


504C 
506c 
02C3 
5e4C 
4TFC 
S1CC 
91CC 


1244 
474C 
914C 
478C 
91C2 
478C 
58BC 
1288 
470C 


91C4 
471C 


9101 
478C 


437C 
5532 
4TBC 
4470 
4TEC 
47FC 
4470 
4TEC 
4TFO 
g1Cce 
910C 


5870 
5ATC 
597C 
472C 
0203 
58FO 


occc 


34CC 
cccs 
cCC4 


3458 
211C 
2114 
24CéE 
2118 
2CRO 
2064 


21CC 


21CC 
3CE4 
21CC 
3C56 


34C1 
3C5A 
34C1 


322C 
34C1 
3coc 
3CL4 
4CC§ 
3cC4 
5C28 
3CEC 
3CD4 
4ccea 


3CC4 
4c4C 
2128 
4CCC 
3CC4 


2CR4 
2C34 


2C0C4 
2c38 


2cce 
4C14 
4C2E 
3458 
3C04 


2114 
3458 
211C 
4C34 
3C5A 
4cC$ 
4Cl1? 


322C 
4cc5 
316A 
4005 
318A 
4CC8 


318A 


4Cc5 
3192 


4cC5 
31@A 


5¢28 
4018 
312C 
Z13C 
318A 
314C 
3138 
318A 
3140 
4Clé 
4017 


404C 
2128 
4CCC 
318A 
2084 
2034 


213C C2A18 
2céc C3810 
2CéEC C3814 

C3BC6 


sccc C3780 


C38CC 


c38cC 


C2Ael 


C2AP1 


ccocs 


4CCC CI7TR4 


2CA4 C37TC4 


2céc C381C 


ccccs 


ccol7 


ccocs 


ccocs 


ccccs 


ccccs 


ccolRr 


coolé 
cool? 


4CCC C37B4 


ACDR2 


ocaoc 


029CC 
00008 
accc4s 


0383C 
03760 
03760 


03818 
occco 
03764 


038CC 


O26A4 


02616 


O261A 


027E0 
O2A81 
0269C 
02694 


02694 
oco2aA 
026A0 
02694 
ococs 


02694 
Oco4c 
0382A 
acooc 
02694 


occco 
03734 


O37A4S 
03738 


037CA 
OCcO14 
OCO2E 
02A18 
02694 


03614 
O2A18 
03760 
0CC34 
O261A 


O27E0 
O274A 


O274A 
0c008 


O274A 


02752 


O274A 
0c0o28 


O26EC 
O26FC 
O274A 
027C0 
O26F8 
O274A 
02700 


OC04C 
03828 
OccOoc 
O274A 
ococo 
03734 
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(SUBROUTINE FIND LOWEST COST QUARRY) 


SET LOWEST = LARGEST POSITIVE NO. 
SET AODRIP = -1 

SET QASSGNED = -1 

SET OUTSIDE INDICATOR = 0 

LOAD REGS WITH WIP BEING ESTABLISHED 
SET POINTL = WIP(5) 

LOAD REG4 WITH START Q CHAIN 

CLEAR REG6 

INSERT INDEXT INTO REG6 «2. O=PSG, 
2=UPSG, 4=CS 

ARE WE INVESTIGATING PROCESSED SEG 
IF YES, GO TO PSGLP 

IS IT UNPROCESSED S&G 

IF YES, GO TO IIUPSG 


SET TYPMSK = X*22¢* 
GO TO FQLOOP 
SET TYPMSK = X*42° 


* AT THIS POINT IT IS EITHER UNPROCESSED SEG OR CRUSHED STONE 


ARE WE DONE WITH ALL Q*S INSIOE GRID 
IF YES», GO TO CHEKOUTS 

INSET TYPE INTO REG7 

IS Q(4) THE CORRECT TYPE 

If NOT, GO TO LFNEXTQ 

DOES 014) USE AN INTER POINT 

IF YES GOTO LFNEXTQ 

INSERT QUAL REQUIRED INTO REG7 
IS QUAL AT Q(4) WORSE THAN REQ*D 
IF WORSE» GO TO LFNEXTQ 

LOAD LIFE Q(4) INTO REGLI 

HAS Q(4) BEEN DEPLETED 

IF YES, GO TO LFNEXTO 

LOAD REG? WITH MATL BEING USED 
AOD PRESENT PERIOD USAGE 

DOES IT EXCEED MAX YR OUTPUT 

IF YES, GO TO LFNEXTQ 


SET POINT 2 = Q(4) 
FIND DIST O14) TO WIP{5) 
of 


FIND TRANSPORTATION COST 


LOAD TRANS COST INTO REGB 

AOD COST TO MINE & PROCESS 

ADD AMORTIZATION COST 

IS COST LOWER THAN PREVIOUS LOW 
IF NOT, GO TO LFNEXTQ 


COST IS LOWER THAN PREVIOUS LOW 


STORE ADDR QUARRY ASSIGNED 
STORE NEW LOW COST 

SET INTER PT ADDR = -1L 
LOAD REG4 WITH ADOR NEXT Q 
GO TO FQLOOP 

DETERMINE TYPE 

DETERMINE QUALITY 
(PROCESSED SEG LOOP) 

ARE WE DONE WITH Q'S IN GRID 
IF YES, GO TO CHEKOUTS 

IS IT A SEG Q 

IF NOT, GO TO CNPSGQ 

IS Q(4) MINING MATERIAL 

IF NOT, GO TO CNPSGQ 

LOAD LIFE Q(4) INTO REGI1 
HAS Q(4) BEEN DEPLETED 

IF YES, GO TO CNPSGO 


THIS POINT, Q(4) IS MINING MATERTAL AND THERE 1S ENOUGH 


DOES Q(4) USE AN INTER POINT 
IF YES, GO TO QR4UIP 


DOES NOT USE AN INTERMEDIATE POINT 


IS IT A PROCESSING PLANT 
IF NOT, GO TO CNPSGQ 


INSERT QUAL MATL REQ INTO REG? 
IS Q(4) AT LEAST 50 PERCENT SAND 
IF YES, GO TO TSQO 

TS GRAVEL QUAL WORSE THAN REQ*D 
IF WORSE, GO TO CNPSGQ 
OTHERWISE, GO TO QOK 

TS SAND QUALITY WORSE THAN REQ*D 
IF WORSE, GO TO CNPSGQ 
OTHERWISE, GO TO QOK 

TEST SAND QUALITY 

TEST GRAVEL QUALITY 

(Q(4) IS OK TO BE USED) 

LOAD REGT WITH MATL BEING USED 
ADD PRESENT PERIOD USAGE 

DOES IT EXCEED MAX YR OUTPUT 

IF YES, GO TO CNPSGO 

SET POINT2 = Q(4) 


QUARRY 

STMT SOURCE STATEMENT 

2508 USING #,3 

2509 SRFLCQ STM 14,12,12(13) 
2510 LR 3515 

2511 L 14, ASAVLCQ 
2512 sT 14,8(13) 

2513 st 1394(14) 

2514 LR 13,14 

2515 MYC LOWCOST(4)_»LARPOSN 
2516 MVC ADDRIP(4)eMINONE 
2517 MVC QASSGNED(4),MINONE 
2518 MVE OUTSI,X*00* 
2519 L 5 »WIPBE 

2520 MvC POINT1(4),0(5) 
2521 t 4,SQCH 

2522 SR 696 

2525 Ic 69 INDEXT 

2524 « 

2525 cLI INDEXT,X*00?* 
2526 BE PSGLP 

2527 cm INDEXT,X*04* 
2528 RE LIUPSG 

2529 # AT THIS POINT IT IS CRUSHED STONE 
2530 MVE TYPMSK,X*22° 
2531 B FQLOOP 

2532 ITIUPSG BVI TYPMSK»X*42* 
2533 

2534 FOLOOP EQU * 

2535 LTR 494 

2536 BM CHEKOUTS 

2ST: Ic 7s TYPMSK 

2538 EX 7,CQL 

2539 BNO LFNEXTQ 

2540 tT 514),K"04?* 
2541 BO LFNEXTO 

2542 1c 7+40(6,5) 

2543 EX 7eCQ2 

2544 BNO LFNEXTOQ 

2545 L 11,8(0¢4) 

2546 LTR 11,11 

2547 BNP LFNEXTQ 

2548 L 79761004) 

2549 A 7+PPUPSG(6) 
2550 Cc 741200,4) 

2551 BH LFNEXTQ 

2552 # AT THIS POINT, O(4) IS A POTENTIAL SUPPLIER 
2553 MVC POINT2(4),0(4) 
2554 \s 15,ASRDIST 
2555 BALR 14,15 

2556 MVC TRANSD(4),01STX 
2557 L 15, ASRTRCST 
2558 BALR 14,15 

2559 L 8,FIXPTCST 
2560 AH 8,20(0,4) 

2561 AH 8,46(0,4) 

2562 Cc 8,LOWCOST 

2563 BH LFNEXTQ 

2564 ® AT THIS POINT, 

2069 ST 4,QASSGNED 
2566 ST 8,LOWCOST 

2567 MVC ADORIP(4),MINONE 
2568 LFNEXTQ L 4152(0%4) 

2569 B FOLOOP 

2570 CQL ™ 5(4).X"008 
2571 CQ2 ™ 23(4)4X*00! 
2572 PSGLP EQU * 

2573 LTR 494 

2574 PM CHEKOUTS 

2575 ™ 5(4)9X"408 
2576 RZ CNPSGQ 

2577 T™ 5(4),K*02* 
2578 BZ CNPSGQ 

2579 L 11,8104) 

2580 LTR lle1l 

2581 RNP CNPSGO 

25028 AT 

2583 ™ 5(4)9X"048 
2584 BO QR4UIP 

2585 # AT THIS POINT QO(4) 

2586 ™ 5(4),X"OL* 
2587 BZ CNPSGQ 

2588 * AT THIS POINT, O14) IS A Q AND A PP 
2589 Ic 79401055) 

2590 cLI 24(4),50 

2591 BAL TSQQ 

2592 EX Te CPSGQ2 

2593 BNO CNPSGQ 

2594 8 QoK 

2595 TSQQ EX 7,CPSGQOL 

2596 BNO CNPSGQ 

2597 B QOK 

2598 CPSGQL ™ 22(4)5X"00°* 
2599 CPSGQ2 ™ 23(4)5X*00" 
2600 QOK EQu 2 

2601 t Te T6004) 

2602 A T,PPUPSG 

2603 Cc 79121094) 

2604 BH CNPSGQ 

2605 MVC POINT2(4),0(4) 
2606 L 15, ASRDIST 


FIND DISTANCE Q(4) TO WIP(5) 


tcc 


OC271A 
oc2T1Cc 
CC2722 
CC2726 
oc272e 
oc272C 
0C273C 
0C2734 
oc2738 
0c273C 
OC274C 
CC2744 
OC274A 
CC274E 
cc2752 
0C2752 
CC2756 
OC275€é 
oc275e 
cc275c 
0C276C 
0C2764 
OC27EA 
CC27TEE 
0C2772 
Oc277€ 
CC277A 
OC277E 
cc2784 
oc27ee 
CC278A 
cc279C 
002794 
OC279E 
CC279A 
OC27AC 
CC27A4 
OC27TAE 
OC27AC 
Oc27R2 
CC27RE 
oc27Be 
oc27e8C 
Ce27ce 
ec27c4 
oc27ce 
0c27CC 
oc27cc 
OC27C4 
oc27re 
CC2ZTLC 
Oc27EC 
Oc27EC 
OC27E4 
OC27EA 
OC27EE 


OC27F2 
OC27TFE 
QO27FA 
OC27FE 
cc2ec2 
oc2eceé 
oc2ecc 


oc2e1c 
oc2e@12 
cc2ele 
oc2eic 
oc2el1e 
oc2e8&22 
CC2826 
OC282A 
OC282E 
0C2832 
OC203€ 
cc2e3C 
Cc2e4c 
CC2844 
oc2e48 
Oc2e84C 
oc2e5sC 
0C2854 
oc2es5e 
oc2e5a 
oc2esC 
oo2e5e 
OC 2862 
OC28EE 
OC28EA 
Oc2eéEC 
a0286C 
002872 
oc2e7e 
oc287C 
cc2eEec 
oc2e82 
Oc2eReé 
CC2E8A 


SUBROUTINE FIND LOWEST CCST 


OBJECT CCDE 


OSEF 
0203 
58FC 
OSEF 
5870 
4ATO 
4ATC 
5970 
472C 
507C 
504C 
0203 
584C 
4TFC 


589C 


1259 
474C 
915C 
4TEC 
O5CC 
477C 
5870 
5ATC 
597C 
472C 
0203 
58FC 
CSEF 
0203 
58FC 
CSEF 
5870 
02C3 
58FO 
CSEF 
0203 
0203 
58FC 
COEF 
5ATC 
4A7C 
4ATC 
597C 
472C€ 
504C 
509C 
507C 
58sc 
4TFC 


sa7c 
c5Cl 
478C 
438C 


4480 
477C 
43RE 
448C 
4TEC 
02C3 
58FC 


OSEF 
0203 
58FC 
OSEF 
5eec 
4ABC 
598C 
4720 
508C 
5c7C 
0203 
43BC 
44B0 
417C 
4TFC 
950C 
g10C 
92CC 


588C 
126e@ 
4T4C 
580C 
9B8EC 
CTFE 


0203 
0203 
43BE 
5880 
1288 
474C 
9508 
4770 


20C4 
2038 


2cc8 
4014 
402E 
3458 
318A 
3458 
2114 
2110 
4034 
3CE4 


2064 


318A 
9cc5 
3218 
4CC7 
3218 
904C 
2128 
gece 
3218 
2CB4 
2034 


2CC4 
2C38 


2ccé8 
2CcBC 
2034 


2cBC 
2CC4 
2C38 


2cc8 
902E 
4014 
3458 
3218 
2114 
211C 
3458 
9034 
3196 


2cCCc 
7¢CC 
3298 
2405 


328C 
3284 
5c2é 
329C 
3284 
2CB4 
2034 


20C4 
2038 


2cce 
7CC4 
3456 
3284 
3458 
2114 
211C 
2405 
3294 
701C 
3224 
7CC2 
7CC3 
24C6 


2114 


32AC 
3414 
ococ 


3458 
2114 
8028 
2068 


233G 
21CC 
320A 


20A4 


2CEC 


gcc? 


sccc 


2CA4 


4CCC 


5ccc 
2CA4 


2CéC 


7CC6 


2CA4 


2céc 


213¢ 
2CéC 


ADORL 


C37C4 


C3810 


ccocs 


cccc7 


C37B4 


C37C4 


C3780 


C37R0 
C37C4 


cccce 


C37R4 


C37C4 


C3810 


ccoc2 
ccoc3 
C3BC6 


C2A18 
C3814 


c38cc 


ADOR2 


O3TA4 
03738 


037C8 
Ccol4s 
O002E 
O2A18 
0274A 
02418 
03614 
03760 
00034 
026A4 


03764 


O274A 


02708 
occo? 
02708 
occ4c 
03828 
occoc 
02708 
occco 
03734 


O37A4 
03738 


037C8 
ococo 
03734 


ococo 
O37A4 
03738 


037C8 
OCO2E 
Ocol4 
02A18 
02708 
03814 
03810 
02A18 
00034 
02756 


0370C 
03760 
02858 
03805 


0284C 
02844 
00028 
02850 
02844 
0c006 
03734 


O37A4 
03738 


037C8 
OcCcC4 
02418 
02844 
02A18 
038614 
03760 
03805 
02854 
oco10 
O27E4 


03814 


0286C 
02904 
occoc 


0383C 
03760 
00028 
03768 


O28FC 


0289A 


QUARRY 


Stet SOURCE STATEMENT 


2607 BALR 14,15 

2608 MVC TRANSD(4) »DISTX 
2609 i 15,ASRTRCST 
2610 BALR 14,15 

2611 [‘: TeFIXPTCST 
2612 AH 74201054) 

2613 AH 72461094) 

2614 a 7,LOWCOST 

2615 BH CNPSGQ 

2616 ST T,LOWCOST 

2617 ST 4, QASSGNED 
2618 MYC ADDRIP(4),MINONE 
2619 CNPSGO L 4,52(1094) 

2620 B PSGLP 

2621 QRSUIP EQU @ 

2622 t 9,SQCH 

2623 LFIPLP EQuU a 

2624 LTR 909 

2625 BM CNPSGQ 

2626 ™ 5(9),X*50* 
2627 BNO LFNIP 

2628 CLC Tl1le4) e719) 
2629 BNE LFENIP 

2630 E Te 761099) 

2631 A 7,PPUPSG 

2632 Cc 7,12(0,9) 

2633 BH LENIP 

2634 MYC POINT2(4),0(9) 
2635 L 15,ASROIST 
2636 BALR 14,15 

2637 MVC TRANSD(4) ,DISTX 
2638 L 15, ASRTRCST 
2639 BALR 14,15 

2640 u ToFIXPTCST 
2641 MVC POINTL(4),0(4) 
2642 L 15,ASROIST 
2643 RPALR 14,15 

2644 MVC POINT1(4),0(5) 
2645 MVC TRANSD(4),DISTX 
2646 L 15, ASRTRCST 
2647 BALR 14,15 

2648 A TeFIXPTCST 
2649 AH 79461059) 

2650 AH 7T,20(0,4) 

2651 Cc 7,LOWCOST 

2652 BH LENIP 

2653 st 4,QASSGNED 
2654 ST 9,ADDRIP 

2655 ST 7,LOWCOST 

2656 LFNIP t 9,52(0,9) 

2657 a LFIPLP 

2658 CHEKOUTS EQU ® 

2659 L 7,A0SQ 

2660 OUTLPCK CLC 0(2+7),_,MINONE 
2661 BE DONEODQ 

2662 1c 8,SUPPLIER 
2663 # 

2664 EX 8,CTYPE 

2665 BNE CNOQ 

2666 tc Be40(6,5) 

2667 EX 8,CQUALOS 

2668 BNO cnoqQg 

2669 MVC POINT2(4),6(7) 
2670 t 15,ASRDIST 
2671 # 

2672 BALR 14,15 

2673 MVC TRANSD(4),DISTX 
2674 E 15,ASRTRCST 
2605 BALR 14,15 

2676 t 8,FIXPTCST 
2677 AH B,410,7) 

2678 C 8,LOWCOST 

2679 BH CNOO 

2680 st 8,LOWCOST 

2681 st 7,QASSGNED 
2682 MVC ADDRIP(4)_»MINONE 
2683 1c 1Li,SUPPLIER 
2684 EX l1l,SOTYPE 

2685 CNOQ LA 75161007) 

2686 B OUTLPCK 

2687 CTYPE cut 2(7),X*"00" 
2688 CQUALOS TM 3(7)-eX*O00!* 


2689 SOTYPE MVI OUTST ,x*00° 
2690 DONEOQ £QU 2 


2691 L 8,QASSGNED 

2692 LTR 8,8 

2693 BM ENQAA 

2694 U 13,SAVLCQ+4 

2695 LM 14912,12(13) 

2696 BR 14 

2697 ENQAA EQU * 

2698 MVC LOWCOST(4),LARPOSN 
2699 MVC QASSGNED(4),MINONE 
2700 Ic 11540(6,8) 

2701 L 8,SPQCH 

2702 AWONQLP LTR 8,8 

2703 BM DLFNQ 

2704 cui INDEXT,X*08* 

2705 BNE NORSG 


FIND TRANSPORTATION COST 
ee 


LOAD TRANS COST INTO REG? 
ADO COST TO MINE & PROCESS 


ADD AMORTIZATION COST 
¥S COST LOWER THAN PREVIOUS LOW 
IF NOT, GO TO CNPSGQ 
STORE NEW LOW COST 

STORE ADDR Q ASSIGNED 


SET INTER POINT ADDR = -1 
LOAD REG4 WITH ADDR NEXT Q IN CHAIN 


GO TO PSGLP 
(Q IN REG4 USES AN INTERMEDIATE PT) 
LOAD REGO WITH START Q CHAIN 


FOLAUG68 


ARE WE DONE LOOKING FOR IP*S 
IF YES, GO TO CNPSGQ 


IS Q(9) A SEG Q AND AN IP 


IF NOT, GO TO LFNIP 
1S IT OWNED BY SAME OWNER AS Q(4) 
If NOT, GO TO LFNIP 


LOAD REG7 WITH MATL BEING USED TO DA 
ADD PRESENT PERIOD USAGE 


DOES IT EXCEED MAX YR OUTPUT 
If YES, GO TO LFNIP 
SET POINT2 = Q(9) 


FIND DEST WIP(5) TO IP(9) 
o6 


FIND TRANSPORTATION COST 
ees 


LOAD REG7T WITH TRANS COST 


SET POINT1I = Q(4) 


FIND DISTANCE IP(9) TO Q(4) 


SET POINTL = WIP(5) 
FIND TRANS COST 


eo 
os 


ADD TRANS COST TO REG? 
ADD AMORT COST AT Q(9) 
ADD COST TO MINE & PROCESS AT Q(4) 
IS COST LOWER THAN PREVIOUS LOW 
IF NOT, GO TO LFNIP 
STORE ADOR Q ASSIGNED 
STORE ADOR INTER PT 
STORE NEW LOW COST 


LOAD REGS WITH ADDR NEXT Q IN CHAIN 


GO TO LFIPLP 


{CHECK OUTSIDE QUARRIES) 


LOAD REG7T WITH ADOR OUTSIDE Q*S 
ARE WE DONE WITH OUTSIDE Q*S 

IF YES, GO TO DONEOQ 
INSERT TYPE SUPPLIER INTO REGS 
1=PSGy 2=UPSG, 4=CS 
1S OUTSIDE Q THE CORRECT TYPE 
IF NOT, GO TO CNOQ 

INSERT QUAL MATL REQ*D 


IS OUTSIDE QUALITY O.K. 


iF NOT, GO TO CNOQ 
SET POINT2 = UNLD PT OUTSIDE Q(7) 
FIND DIST wIP(5) TO OUTSIDE Q 

UNLOADING POINT 


ee 
FIND 
ee 
ae 


LOAD REGB WITH TRANS COST 


TRANS COST 


ADD COST TO UNLD PT 
1S COST LOWER THAN PREVIOUS LOW 
iF NOT, GO TO CNOQ 
STORE NEW LOW COST 
STORE ADDR Q ASSGNED 


SET 


INTER PT ADDR = -1 


LOAD SUPPLIER TYPE INTO REGIL 
SET OUTSIDE TYPE 
LOAD REG? WITH ADDR NEXT OUTSIDE Q 
GO TO OUTLPCK 


™s Q 


IS QUALITY OUTSIOE O.K. 


THE CORRECT TYPE 


SET OUTSIDE TYPE 
(DONE OUTSIDE Q*S) 
LOAD REG8 WITH ADDR ASSIGNED Q 


WERE 


ANY Q°S ASSIGNED 


IF NOT, GO TO ENQAA 


(ESTABLISH NEW QUARRY 


SET LOWCOST = LARGEST + NO. 
SET ADDR ASSGNED Q = -1l 


SET INDEX REG 11 WITH TYPE Q 
REG, WITH START PQ CHAIN 


LOAD 


ARE WE DONE LOOKINK FO PQ*S 


IF YES, GO TO DLFNQ 


ARE WE “LOOKING FOR CS Q 


IF NOT GO TO NQRSG 


PAGE 38 


5/30/69 


SUBROUTINE FIND LOWEST COST QUARRY PAGE 39 


LOC OBJECT CODE ADDRL ADDR2 STMT SOURCE STATEMENT f FOLAUG68 5/30/69 
oc2eee 912C BC06 - cCC006 2706 ™ 6(8),xX*20" OOES PQ(8) PRODUCE CRUSHED STONE 
0C2892 47EC 32EA O28AA 2707 BNO UPPORB IF NOT, GO TO UPPORB 
OC28SE 47FC 32€2. 028A2 2708 B TYPEOK OTHERWISE GO TO TYPEOK 
002894 9140 8006 CC0C6 2709 NORSG ™ 6(8)5xK"40° IS IT A SEG PQ 
CC289E 47EC 32EA O28AA 2710 BNO UPPQRS IF NOT, GO TO UPPQRS 
OC2BA2 4480 32F2 028B2 2711 TYPEOQK EX 11, TNQQ IS QUALITY IN PQ(8) O.K. 
OC2BAE 4710 32FE 02886 2712 BO NQOKTE IF YES, GO TO NQOKTE 
OC28AA 588C 8C34 00034 2713 UPPORB L 8,52(0,8) LOAD REGS WITH ADDR NEXT PQ IN CHAIN 
OC28AE 47FC 32C€C 02880 2714 8 AWDNQLP GO TO AWDNQLP 
OC28B82 S1CO 8017 cool? 2715 TNQQ ™ 23(8),X*00* IS QUALITY OK 

2716 # AT THIS POINT, PQ IN REGB IS OK TO ESTABLISH. WE MUST NOW TEST COST 
OC2eBé 5880 BOl10 OOOLO 2717 NQOOKTE L 11,16(0,8) LOAD REGI1 WITH ESTABLISHMENT COST 
OC2@BA 1BAA 2718 SR 10,10 CLEAR REGLO 
CC28eC SCAO 214C 03840 2719 M 10,HUNDRED CONVERT EST COST TO PENNIES 
CC28CC S5DAC 8CC8 occcs 2720 i) 10,8(0,8) DIVIDE BY LIFE = AMORT COST 
OC28C4 4CBC 345C O2A1C 2721 STH 11,NQAC STORE AMORT COST IN NQAC 
OC2@C8 0203 2084 eCCC C37R4 OCCCO 2722 MVC POINT2(4),0(8) SET POINT2 = ADDR PQ(8S) 
CC28CE S8FC 2034 03734 2723 L 15,ASRDIST FIND DISTANCE PQ(8) TO WIP(5) 
OC2802 OSEF 2724 RALR 14,15 ve 
OC2@04 0203 20C4 2CA4 O37C4 03744 2725 MVC TRANSD(4)eDISTX FIND TRANSPORTATION COST 
CC28CA S58FC 2038 03738 2726 . L 15,ASRTRCST oe 
OC2eCE OSEF 2727 BALR 14,15 se 
Oc2eEC SABC 20C®8 037C8 2728 A 11, FIXPTCST ADD TRANSPORTATION COST 
CC2BE4 4ABC 8C14 00014 2729 AH 11ly20(0,8) ADD COST TO MINE & PROCESS 
OC28E8 59BC 3458 02418 2730 Cc 1l,LOWCOST 15 COST LOWER THAN PREVIOUS LOW 
OC28EC 472C 32EA O28AA 2731 BH UPPQRB IF NOT, GO TO UPPQRS 
2732 # AT THIS POINT, COST IS LOWER THAN PREVIOUS LOW COST 
CC2B8FC SCBC 3458 O02A18 2733 ST 11,LOWCOST STORE NEW LOW COST 
CC28F4 508C 2114 03814 2734 ST 8, QASSGNED STORE ADDR PQ(8) 
OC2@F® 4TFC 32EA O28AA 2735 B UPPORB GO TO UPPQRS 
2736 ® AT THIS POINT WE ARE FINISHED LOOKINK FOR A PQ 
oc2eFC 2737 DLFNQ eQU # (DONE LOOKING FOR NEW QUARRY) 
OC28FC 588C 2114 03814 2738 L 8»QASSGNED LOAD REG8 WITH ADOR ASSGNED PQ 
Oc29CC 1288 2739 LTR 848 WERE ANY FOUND 
0C29C2 4740 33C8 02988 2740 aM NPOFABT IF NOT, GO TO NPQFABT 
cc29cé scsc 2098 03798 2741 ST 8, APQTBD STORE ADDR PQ TO BE DELETED 
OC29CA 58FCO 2028 03728 2742 u 15,ASROPQ DELETE IT FROM PQ CHAIN 
OC29CE C5EF 2743 BALR 14,15 ee 
0C261C 9211 22C8 C39C8 2744 MVI  CARCONT,X*11° WRITE MESSAGE 
CC2S14 023f 2200 25C7 C39LN 03C07 2745 MVC OUTLINE#20(L*MDPQAQ),MDPQAQ oe 
0C2914 4888 CCCC OCOCO 2746 LH 11,0(8) ve 
CC2S1E 4ERC 2CCC 037CO 2747 cvd 11,0W ‘0 
CC2922 DEO3 22F6 2CC6 C39F6 03706 2748 ED OUTLINE+45(4),DW+6 °* 
CC2928 48Be CCC2 occo2 2749 LH 11,28) oe 
CC292C 4EBC 2CCC 037C0 2750 CVD 11,0W 
0C293C DEO3 22FC 2CC6 C39FC 03706 2751 ED OUTLINE+51(4),DW+6 ¢8 
00293€ D21C 231C 345E€ C3AIC O2ZALE 2752 MVC OUTLINE+83(L*MDR),MDR 
0C293C S8FO 204C 0374C 2753 t 15, ALTNEOUT ve 
0C2S4C OSEF 2754 BALR 14,15 
0CC2942 94FE 8CC6 ccccé 2755 NI 6(8),X*FE® SET PQ = 0 
0C294€ 508C 2084 63784 2756 st 8, AQTBA STORE ADDR Q TO BE ADDED 
0C294A S58FC 2C14 03714 2757 L 15, ASRAQ ADD QUARRY 
OC2S4E OSEF 2758 BALR 14,15 ee 
0C295C C201 802E 345C CCO2ZE O2A1C 2759 MVC = 46 (2 8) »NQAC SET AMORTIZATION COST 
CC2956 S2CC 24C6 C3806 2760 MVI  OUTSI,»X*00* IT IS NOT FROM OUTSIDE 
0c2954 SS5CC 21CC C38CC 2761 CLI INDEXT,»X*00° IS IT PROCESSED SEG 
CC295E 478C 23R2 02972 2762 BE SNOPSG IF YES GO TO SNOPSG 
0C29€2 95C4 21CC C3aCC 2763 cul INDEXT»X*04* IS IT UNPROCESSED SEG 
CC29€6 478C 33RA 0297A 2764 BE SNQUPSG IF YES, GO TOSNQUPSG 
2765 # AT THIS POINT NEW QUARRY IS A CRUSHED STONE QUARRY 
00296A 9223 8CC5 ccocs 2766 MVI 518)9X*23° SET Q(8) = CS Q 
OC296E 47FC 33BE O297E 2767 8 NORET GO TO NORET 
CC2S72 $243 8CC5 ccocs 2768 SNOPSG MMVI 5(8},X"438 SET NEW Q = PROCESSED SEG 
O0C2976@ 47FC 22BE O297E 2769 B NORET GO TO NQRET 
OC2S7A 9242 8005 ccocs 2770 SNQUPSG MMVI 5(8)9X"42* SET NEW Q = UNPROCESSED SEG 
CC2S7TE 58D0C 3414 02904 2771 NORET L 13,SAVLCQ44 RETURN 
CcC29@2 98EC DCCC Ocooc 2772 LM 14,12,12(13) ee 
0C298€ C7FE 2773 BR 14 ve 
cc29¢e8 2774 NPQFABT EQU) 4 (NONE FOUND, ABORT) 
0C29€8 0244 2220 347C 03900 02A3C 2775 MVC OUTLINE+#20(L*°NFM),NFM WRITE MESSAGE 
O00298E 58FO 204C 0374C 2776 L 15, AL ENEQUT ee 
0C2S92 OSEF 2777 BALR 14,15 i) 
2778 CLOSE {INDCB,,OUTDCB) 
002994 27794 CNOP 044 
002994 4510 33EC 029A0 2780¢ BAL 1,*#12 BRANCH AROUND LIST 
oc2998 CO 27818 oc AL1L(0) OPTION BYTE 
002S9S cooec4s 2782¢ oc AL3(INDCB) DCB ADDRESS 
CC2S9C 80 2783+ oc AL1(128) OPTION BYTE 
O0C299C COOSA4 2784¢# oc AL3(QUTDCB) DCB ADORESS 
OC29AC OA14 2785+ SVC 20 ISSUE CLOSE SVC 
CC29A2 58DC 3414 02904 2786 L 13, SAVLCQ44 
CO29AE 98EC DCOC occoc 2787 uM 14,12,12(13) 
2788 REEXIT 
OC29AA 1810 27894 LR 1,13 
oc29AC Sacc 0cCc4 00004 2790+ l 1354(.13) 
oc29ec 27914 CNOP 054 
OC29BC 47FC 33F8 02988 27924 B #48 BRANCH AROUND SP+¢LV 
002984 CO 2793¢ 0c AL1(0) SUBPOOL VALUE 
OC2SE5 CCCC48 27944 oc AL3(72) LENGTH 
0029B@ SB8CO 33F4 02984 2795+ L 0+®-4 LOAD SP AND LV 
00298C CAOA 27964 SVC 10 ISSUE FREEMAIN SVC 
OO298E 98EC DCOC OCCCC 2797+ LM 14,12,12(13) RESTORE THE REGISTERS 
0C29C2 92FF DCCC ccocc 2798+ MVI 12(13),X*FF*® SET RETURN INDICATION 
OC29Cé 41FC cccC OCCCO 27994 LA 1540(0,0) LOAD RETURN CODE 
O029CA OTFE 2800+ BR 14 RETURN 
oc2z9cc ceco290C 2801 ASAVLCQ oC A(SAVLCQ) 
oc2scc 2802 SAVLCQ 0S 18F 
oc2Al1e 2803 LOWCOST OS F 


OO2A1C 2804 NQAC oS H 


C2A3C C5D64CD8E4C 10909 
e 


( 


—_—a 2 


roa 
\ n : 
of a an 7] 
7) = i - = 
_ mn ; : 
eGo ecm SAM ge ae aes es , : 
OUTINE FIND LOWEST CCST QUARRY PAGE 40 
taeda 
— LOC OBJECT CODE ADDR ACOR2 STMT SOURCE STATEMENT ; FOLAUG68 5/30/69 
ALE C2CS5C3C1E4E2C54C 2805 MOR OC  C*BECAUSE OF DEMAND REQUIREMENTS* 
weed 2806 NFM OC  C*ND QUARRIES OR POTENTIAL QUARRIES WERE FOUND TO MEET DX 


: EMAND 2.2 ABORT® “ 
2807 TYPMSK os x 
2808 LTORG 

2809 SHO ROR OHHH OHFHHHSESSHHHESEHETE HET HEHESHTEHHTISETEFESHSHESTEG OHH HAH DEHO 


INPUT CONTROL SECTION (#INETNPT) PAGE 41 


LOC OBJECT CODE ADDRI ADOR2 STMT SOURCE STATEMENT FOLAUG68 5/30/69 
2811 ENTRY SRPQCOST f 
oc2Ae8 2812 MINEINPT CSECT (INPUT CONTRGL SECTION) 
occcc4 2813 RPOINTER EQU 4 
2814 REENTER BASE=12 
cc2aee8 2815¢ USING #,12 
OC2Aee 2816+ DS OH 
Oc2Aese 9OEC DCCC Ocooc 2817+ stm 14,12,12113) SAVE REGISTERS 
CC2A6C 18CF 2818+ LR 12,15 
CC2A8E C7CC 2819+ CNOP 0,4 
OC2A9C 4510 CO1C 02A98 2820+ BAL 1,#+8 BRANCH AROUND SP#LV 
OC2A94 CO 2821+ oc AL1(0) SUBPOOL VALUE 
OC2AS5 CCCC48 2822+ oc AL3(72) LENGTH 
Oc2za9e 5801 CCCO OCOCO 2823+ t 0,0(1,0) LOAD SP AND LV 
OC2A9C CAOA 2824¢ svc 10 ISSUE GETMAIN SVC 
CC2ASE 5C1C OCCa Occos 28254 ST 158913) 
OC2AA2 SODC 1004 OCCO4 28264 st 139411) 
OC2AAE 18FC 2827+ LR 15,13 
CC2AAe 18D1 28284 LR 1351 
OC2AAA 98FL FCIC OCO1l0 28294 LM 1591216(15) 
CC2AAE 5820 2CC8 03708 2830 L 2,ACOMMON LOAD REG2 WITH ADDR COMMON AREA 
cc37cc 2831 USING COMMON,2 
2832 OPEN ({INDCB,,OUTDCB, (OUTPUT) ) 
CC2A62 O7CC 28334 CNGP 054 
CC2AB4 451C CC38 O2ACO 2834+ BAL 1,##12 LOAD REG1 W/LIST ADDR. 
oc2Aee co 2835+ oc AL1(0) OPTION BYTE 
OC2A8S CCCE&C4 2836+ Oc AL3(INDCB) DCB ADDRESS 
OO2ABC 8F 2837€ oc AL1(143) OPTION BYTE 
CC2ABC CCO9A4 2836¢ oc AL3(QUTOCS8) DCB ADDRESS 
QO2ACC 0A13 2839+ Svc 19 ISSUE OPEN SVC 
CC2AC2 9288 22Ce c39C8 2840 MVI CARCONT,X*8B* SKIP TO TOP OF PAGE 
OC2ACE 58FO 204C 0374C 2841 L 15, ALTNEOUT 7: 
CC2ACA OSEF 2842 BALR 14915 oe 
OC2ACC $219 22C8@ C39C8 2843 MVI CARCONT+X*19# WRITE & SPACE 3 
OC2ZACC 0227 2203 CSCC 03903 03458 2844 MVC OUTLINE*LO(L*INMES),INMES PRINT HEADING 
CC2ACE SBFO 204C O0374C 2845 L 15,ALINEOUT as 
CO2ACA OSEF 2846 BALR 14,15 oe 
OQC2ACC S2CC CIA2 C342A 2847 MVI ERRORS,»X*00° SET ERRORS INDICATOR = 0 
OC2AEC 1877 2848 SR V7 CLEAR REG7 
CC2AE2 507C 2154 03854 2849 ST 7,CCPSG SET CUMULATIVE COST PSG =0 
OC2AEE 507C 2158 03858 2850 ST 7,CCUPSG Po UPSG =0 
OC2AEA SC7TC 215C 0385C 2851 st 7,CCCS oe cs =0 
CC2AEE 5070 216C 03860 2852 ST 7,CTMPSG SET CUMULATIVE TON-MILES PSG =0 
CC2AF2 507C 2164 03864 2853 ST 7,CTMUPSG oe UPSG =0 
OC2AFé 5070 2168 03868 2854 st T,CTMCS a5 cS =0 
OC2AFA S5C7C 216C 0386C 2855 st 7T»CTPSG SET CUMULATIVE TONS PSG =0 
OC2AFE 5070 217C 03870 2856 ST 7,CTUPSG eo UPSG =0 
OC28C2 S5SC7C 2174 03874 2857 st 7T»CTCS $9 CS =0 
OC2BCE SC7C 2178 03878 2858 st TeCMWTD SET CUMULATIVE MATL WASTED IN Q =0 
€C2ZECA SC7TC 217C 0387C 2859 ST T,CMWTDPQ SET CUMULATIVE MATL WASTED IN PG =0 
OC2BCE 507C 218C 03880 2860 ST Ty TOTMATLW SET TOTAL MATL WASTED =0 
OC2812 S5C7C 2184 03884 2861 sT 7,TOTCOST SET TOTAL COST =0 
Oc2f1é 5070 2188 03888 2862 st Ty TOTTM SET TOTAL TON-MILES =0 
OC2B1A S5C7C 218C 0388C 2863 ST 7, TOTTONS SET TOTAL TONS =0 
CC2B1E 5C7C 219C 03890 2864 ST 7,CTRCST SET CUMULATIVE TRANSPORT COST =0 
OC2822 5070 2194 03894 2865 Si 7,CTONSOUT SET CUMULATIVE TONS FROM OUTSIDE =0 
CC2B2E 507C 2198 03898 2866 st 7,CCOUTS SET CUMULATIVE COST FROM OUTSIDE =0 
2867 « 
OC282A SBFC 2048 03748 2868 L 15,ACARDIN READ OPTION CARD 
CC2@2E OSEF 2869 BALR 14,15 os 
2870 ¢ THIS SECTION READS THE OPTION CARD 
O00283C F271 2CCO 2277 C3700 03977 2871 PACK OW(8),INPUT(2) PACK MAXYEAR 
OC2836 S60F 2CC7 C3707 2872 or OW+7,X*OF® 
CC2B83A 4FRC 2CCC os7Tco (2873 CVvB 11,0W 
CO2B3E 42BC 2266 03966 2874 STC 11l,MAXYEAR STORE MAXYEAR 
002842 F270 2CCO 2279 C37CO 03979 2875 PACK OW(8),INPUT42(1L) PACK ASSGNQ 
OC2#4& 960F 2CC7 C3707 2876 ol OW4+7,X*OF® 
CC2B4C 4FBC 2CCC 03700 2877 CvB 11,0W 
OO02B85C 4280 2267 03967 2878 sTc 11,ASSGNQ STORE ASSGNQ 
OC2854 D2CC 226C 227A C396C 0397TA 2879 MVC PQINFO(1) »INPUT+43 STORE PQINFO 
OC2B54 F271 2CCC 2278 03700 0397B 2880 PACK OW(8),INPUT#+4(2) PACK PLANNING HORIZON 
OC2BEC S6CF 2CC7 c3707 28861 or OW+7,X*OF® 
OC28664 4FBC 2CCC 03700 2882 cve 11,0wW 
OC2B68 42BC 226A 0396A 2883 STC 11, PLANHORZ STORE PLANHORZ 
OC2B86C D2CC 23F8 2270 C3AF8 03970 2884 MYC ZLAW(1), INPUT #6 PREPARE ZONE LAW = NO ZONING 
2885 CALL SETZL 
oc2e@72 O7CcCc 2886+ CNOP 054 
OC2B74 47FC COF4 O2B7C 2887 B ##8 BRANCH AROUND VCON 
oo2B78 Cccccocc 2888+*THBOO31B OC V(SETZL) ENTRY POINT ADDRESS 
OC267C 58FO CCFO O2878 2889+ it 15, THBOO31B LOAD 15 WITH ENTRY ADR 
OC2B8C OSEF 2890+ BALR 14915 BRANCH TO ENTRY POINT 
OC2B882 D2CO 2268 23F9 03968 O3AF9 2891 MVC ZLNOZONE(1)_ZLAWD STORE ZLNOZONE 
OC288& F273 2CCO 227E O37CO 0397E 2892 PACK OW(8),INPUT+7(4) 
CC2@8E 960F 2C07 C3707 2893 ol OW+7,X*OF® 
OC2892 4FBC 2CCC 03700 2894 CvB 11,0 
Q02896 5CBO 2258 03958 2895 ST 11,HGCONF STORE IN HGCONF 
OC2BSA SE4E 2258 03958 2896 OL HGCONF ,X*46°* CONVERT TO FLT PT 
OC2B9E 7820 2258 03958 2897 LE 2»HGCONF LOAD INTO FLT PT REG2 
OC2BA2 702C CAIC 03498 2898 DE 2e=E*100!' DIVIDE BY 100 
OC2BAE 7020 2258 03958 2899 STE 2»HGCONF STORE HGCONF 
OC2BAA F273 2CCC 2282 C37CO 03982 2900 PACK OW(6), INPUT#11(4) PACK VERTICAL GRID CONVERSION 
OC2@8C 960F 2C07 C3707 2901 ol DW+7,X°OF® 
OC2#B4 4FBC 2cCO0 03700 2902 CvB 11,0W 
OC2@6& SOBO 225C 0395C 2903 ST 11, V¥GCONF 
OC2BEC 9646 225C 0395C 2904 or VGCONF 5X*46° CONVERT TO FLT PT 
Cc2BcC 782C 225C 0395C 2905 LE 2» VGCONF LOAD INTO FLT PT REG2 
OC28C4 7L2C CALC 03498 2906 DE 2e=E* 100° DIVIDE BY 100 
Oc2BCe 702C 225C 0395C 2907 STE 2» VGCONF STORE VGCONF 
OC28CC F273 2CCO 2286 C3700 03986 2908 PACK DW(8), INPUT4#1L5(4) PACK ST LINE CONF FACTOR 
OC28602 96CF 2CC7 C370T 2909 or OW+7,X*OF?* 


LOC 


OO26CE 
CC2BCA 
Oc2B0E 
OC2BE2 
OC2BE6 
OC2BEA 
OC286EE 
OC2BF2 
OC2BFE 
OC2BFA 
OC26FE 
OCc2CC2 
cc2ccé 
CC2cCA 
CC2cceE 
co2cl2 
cc2cle 
oc2clA 
cc2cie 
oc2c22 
Oc2C2é 
oc2c24 
O02C2E 
0C2C32 
CC2C3é 
cc2c3a 
Oc2c2€ 
CC2C42 
OC2C46 
Oc2C4A 
CC2C4E 
oc2cs2 
CC2CS5E 
OC2CcSA 
OC2C5E 
oc2C62 
OC2CEE 
OC2CEéA 
OC2C6E 
Oc2C72 
ec2c7é 
OC2C7A 
CC2C7E 
OC2C 7E 
oc2ce4 
ccecee 
oc2cec 
oc2c9gc 
Oc2cSsé 
CC2C9A 
OCc2C9E 
Cc2CA2 
cc2cae 
cc2cac 
oc2cec 


CC2CB4 
oc2cbe 
CC2CBA 
oc2ccc 
oc2cc2 
oc2cce 
oc2cca 
cc2ccc 
oc2cc2 
cc2cceé 
oc2ccc 
oc2cec 
OCc2ce4 
oc2cee 
OC2CcEC 
OC2cFC 
OC2CF4 
OC2CF8 
OCc2cFC 


OC2CFC 
oc20cc 
ec2cce 
Oc2CC4 
oc20Ccé 
oc20cc 
oc2cic 
Oc201é 
OC201A 
oc2cle 
002022 
OC202¢é 
00202A 
oc202e 
002032 
00203¢€ 
002634 
OC203E 
002042 
O020AE 
002046 


INPUT CONTRCL SECTION (MINETNPT) 


OBJECT CCOE 


4FBO 
5OBC 
9646 
782C 
7020 
7020 
95F1 
4780 
95F2 
478C 
95F3 
4780 
4 TFC 
9201 
47FC 
9203 
4 TFC 
9207 
4TFC 
92CF 
95F1 
478C 
95F2 
4780 
9S5F3 
478C 
95F4 
478C 
95F5 
4780 
47FC 
92C1 
4TFC 
92C3 
4TFC 
92C7 
4TFC 
92CF 
4 TFC 
921F 
4TFC 
923F 


F273 
S60F 
4FBC 
40BC 
F271 
96CF 
4FRC 
42BC 
F272 
960F 
4FBC 
5CBO 


58FC 
OSEF 
0240 
OSEF 
C24C 
OSEF 
0223 
1877 
S8EC 
F272 
960F 
4FBC 
4087 
417¢ 
4970 
478C 
416C 
4 TFC 


5840 


S8FC 
OSEF 
0501 
4760 
F272 
S60F 
4FBC 
4080 
95F3 
4780 
SSF2 
476Cc 
92C4 
4TFC 
9201 
47FO 
9202 


0200 


ADORL 


2cco 
226C 
2260 C3960 
22€C 
Calo 
2260 
228A C398A 
C182 
228A O398A 
C16A 
228A 0398A 
C192 
C19A 
2268 03968 
C19E 
2268 03968 
C19E 
2268 C3968 
CISE 
2268 03968 
2288 C3988 
c1ica 
2288 03988 
C102 
22e8 C3988 
cipa 
2268 C3988 
C1lE2 
2288 C398A 
C1EA 
ClF2 
2269 C3969 
C1F6é 
2269 03969 
CIFE 
2269 C3969 
C1Fé 
2269 C3969 
CIF6 
2265 C3969 
C1FE 
2269 C3969 
2ccce 22eC C37CO 
2cc? Cy7Cc? 
2ccc 
2264 
2ccc 229C C3700 
2cc7 C3rc? 
2ccc 
24C? 
2C00 2292 C437TCO 
2cc? c37c?7 
2ccc 
2100 
2048 
2578 2277 C3Cc7B8 
25Cé 2277 C3ICCé 
2614 2277 C3014 
201C 
2ccec 6ccc o37CcO 
2cc7 c3707 
2ccc 
2104 
7CC2 
CA18 
C274 
6cc3 
C24E 
2coc 
2048 
2277 2275 C3977 
C316 
2ccc 2277 C3700 
2cc? o3707 
2ccc 
4cco 
227A O397A 
C282 
227A C397A 
C2Ba 
4C02 ccec2 
C2BE 
4002 cooc2 
C2BE 
4c02 cooc2 
23F4 2276 O3AF4 


ACOR2 


03700 
03960 


03960 
03498 
03960 
O2C0A 
02C12 


O2C1A 
02C22 


02C26 
02C26 


02C26 


02C52 
o2c5A 
02C62 
O2C6A 


02C72 
O2CTA 


O2C7E 
O2C7E 
O2C7E 
O2C7E 


O2C7E 


0398C 
037C0 
03964 
03990 
037C0 
03807 
039927 
03700 
03800 
O374A 
03977 
03977 
03977 


03710 
occco 


037C0 
038C4 
occo2 
034A0 
O2CFC 
occo3 
02CC4 
0370C 
03748 
03975 
O209E 
03977 


03700 
ococo 


O203A 
02042 
02046 


62046 


03978 


STMT 


2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
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CONVERT TO FLT PT 

LOAD INTO FLT PY REG2 

DIVIDE BY 100 

STORE St CONF 
DOES A ONLY REQ PROCESSING 
IF YES, GO TO AONLYF 
DOES B OR BETTER REQUIRE PROCESSING 
IF YES GO TO BORBF 
DOES C OR BETTER REQUIRE PROCESSING 
IF YES GO TO COBEF 
OTHERWISE GO TO DORBF 
SET A ONLY MASK 
GO TO TCAGG 
SET B OR BETTER 
GO TO TCAGG 
SET C OR BETTER 
GO TO TCAGG 
SET D OR BETTER MASK 
DOES A ONLY REQ PROCESSING 
IF YES GO TO AONLYC 
DOES B OR BETTER REQUIRE PROCESSING 
IF YES, GO TO BORBC 
DOES C OR BETTER REQUIRE PROCESSING 
1F VES GO TO CORBC 
DOES D OR BETTER REQUIRE POOCESSING 


MASK 


MASK 


IF YES, GO TO DORBC 
DOES [3 OR BETTER REQUIRE PROCESSING 
TF VES, GO TO 130RB6C 
OTHERWISE, GO TO 140RBC 
SET A ONLY MASK 

GO TO DAGG 

SET B OR BETTER MASK 

GO TO DAGG 

SET C OR BETTER MASK 

GO TO DAGG 

SET O OR BETTER MASK 

GO TO DAGG 

SET 13 OR BETTER MASK 
GO TO DAGG 


SET 14 OR BETTER MASK 


PACK TRANS COST INTERCEPT 


STORE TRANS COST INTERCEPT 
PACK LIFE NEW PROCESSING PLANT 


PACK PER CENT UN PR SEG FROM Q 


® THIS SECTION READS THE THREE CARDS CONTAINING THE TRANSPORTATION 


READ CARD 1 
oe 


MOVE TO MATRIX 

READ CARD 2 

MOVE TO MATRIX + 78 
READ CARD 3 


CLEAR REGT 

LOAD REG6 WITH ADDR MATRIX 

PACK TRANSPORTATION COST 

MAKE BLANK = 0 

CONVERT COST TO BINARY 

STORE AT CORRECT LOCATION IN TRCOST 
ADD 2 TO REG7 

ARE WE DONE WITH TRANSPORT CURVE 
IF YES GO TO DONWTRC 

OTHERWISE, ADD 3 TO REG6 

AND GO TO PNCOST 


LOAD RPOINTER WITH ADOR OUTSIDE Q 
(READ OUTSIOE GRIDS) 
CALL INPUT ROUTINE 


COMPARE FOR END OF DATA SET ee 


PACK OUTSIDE Q NUMBER 


IS IT A PSG Q 

IF VES GO TO SETOPSG 

IS IT AN UN PROCESSED SEG Q 

If VES, GO TO SETOUPSG 

SET TYPE = CRUSHED STONE = 00000100 
GO TO SOQUAL 

SET TYPE = PROCESSED SEG = 00000001 
GO TO SOQUAL 

SET TYPE = UNPROCESSED SEG =00000010 


SET OUTSIDE QUALITY 


SOURCE STATEMENT 
cv8 11,0W 
ST 11l,SLCONF 
ol SLCONF,XK*46° 
LE 2+SULCONF 
OE 2e2E* 100° 
STE 2+SLCONF 
cul INPUT¢19,X*FL® 
BE AONL YF 
cLt INPUT4¢19,X°F2° 
BE BORBF 
cul INPUT4#19,XK°F3* 
BE CORBF 
| Paes OORBF 
AONLYF eV OFAREQPR,X*O1?® 
B TCAGG 
BORBF VI OFAREQPR,X*03°* 
B TCAGG 
COReF MVE DFAREQPR,X*OT® 
A TCAGG 
OORBF MVI OFAREQPR,X*OF® 
TCAGG cul INPUT+20,X"F1° 
RE AONLYC 
cul INPUT #20,X"F2°* 
RE BorBCc 
cul INPUT4#20,X°F3* 
BE CORBC 
cut INPUT#20,X°F4® 
BE DORAC 
cul INPUT4#20,xK'F5* 
BE T30RBC 
La} T40RBC 
AONLYC MVI DCAREQPR,X*OlL* 
8 OAGG 
BORBC MVE OCAREQPR,X'03* 
LJ OAGG 
CORBC MVI DCAREQPR»XK*OT® 
R DAGG 
oorac MVI OCAREQPR,X*OF® 
8 DAGG 
130RBC BVI OCAREQPR,XK*1F® 
Rk DAGG 
140RB8C eVI OCAREQPR,X*3F* 
DAGG EQU ° 
PACK OW(8),INPUT#21(4) 
ol OW+7,X"OF® 
cCvB 11,0W 
STH 11,COSTINT 
PACK OW(8), INPUT#25(2) 
Ot OW+7,X*OF® 
CVA 11, 0W 
STC 1L1,LNPP 
PACK OW(8),INPUT#+27(3) 
Ci OW+7,X*OF® 
CvB 11,0W 
st L1,PERCFQ 
° CCST CURVE 
L 15,ACARDIN 
PALR 14,15 
¥VC MATRIX(78), INPUT 
BALR 14,15 
MVC MATRIX478(78), INPUT 
BALR 14,15 
MVC MATRIX#156(36), INPUT 
SR 717 
t 6, AMATRIX 
PNCOST PACK OW(8),0(3,6) 
Oo! OW+7,X"OF® 
CvB 11,.0W 
STH LL, TRCOST(T) 
LA To2(0,7) 
CH TetH* 128° 
BE DONWTRC 
La 6531056) 
8 PNCOST 
CONWTRC EQU ® 
e 
LE RPOINTER, AOSQ 
READOUTO EQU e 
L 15, ACARDIN 
BALR 14,15 
CLC TNPUT(2),STARSTAR 
BE READGRID 
PACK OW(8), INPUT(3) 
ol OW+7,X*OF?® 
cvs 11,0W 
STH 11,O01O0,RPOINTER) 
CLI INPUT ¢3,X°F3° 
BE SETOPSG 
cLtI INPUT43,X°F2° 
BE SETOUPSG 
avI Z(RPOINTER)»X*04* 
8 SOQUAL 
SETCPSG MMVI Z(RPOINTER) »X*O1* 
8 SOQUAL 
SETOUPSG MVI 2(RPOINTER),X*02° 
SOQUAL EQu « 
MVC QCA(1), INPUTS4 
CALL SETQUAL 


SET OUTSIDE QUALITY 


Lec 


Oc2C4C 
cc2c4ac 
cc2cse 
oc2C54 
oc2cse 
CC2C5A 
cc2ceéc 
CcC2CEéE 
CC2C6A 
CC2cée 
cc2ct2 
cc2c7e 
cc2c7c 
ec2cec 
oc2ce4 
ec2cea 
CC2CeE 
oc2C92 
oc2cgeé 
oc2cg94 
cc2cge 
CC2CSF 
CC2CA4 
cc2cae 
Cc2cae 
CC2CAC 
CC2CAE 
cc2ce4 
cc2rre 
CC2CPE 
cc2cc4 
ec2cce 
ec2ccc 
ec2ccc 
cc2cc4 
cc2cce 
CE2EcE 
cc2ce2 
cc2cee 
CCc2CFa 


CC2CFC 
Cce2crc 
OC2CF4 
cc2cre 
CC2CFC 
CC2cFre 
CC2EC4 
CC2ECA 
CC2ECE 
Oc2el2 
CC2E1€ 
CC2E14 
CC2F2C 
OC2E24 
CC2E2F 
CC2E2C 
CCZE2C 
CC2E34 


cC2E3e@ 
CC2e€3C 
CC2E4C 
CC2E44 
CC2E48 
COZEC 
Cc2esc 
CC2E54 
oc2ese 
CC2F SC 
CC2€6C 
CC2E&4 
cc2rer 
CC2EEC 
OC2E7C 
CC2E74 
cc2€7e 
CC2E78 
OC2E7E 
OC2Ee2 
OC2E8E 
OC2EEA 
CC2E8E 


OO02E92 
OC2E9¢é 
QO2E9A 
CC2E9SE 
OC2EA2 
OC2EA6 
OC2EAA 
OC2EAE 
OC2EAE 
OC2EB4 
OCc2E6e 
OC2EBC 
oc2€Ccc 
OC2ECE 
OQC2ECA 


NPLT CONTRCL SECTION (MINETNPT) 


OBJECT CCDE 


4TFC 


c2cc 


ccccecce 


58FC 
OSEF 
c2cc 
F273 
S6CF 
GFPC 
40BC 
F272 
960F 
4FBC 
4CBC 
F272 
96CF 
4FBC 
4CBC 
414C 
4TFC 


C201 
584C 


S8FC 
C5EF 
c5C1 
47eC 
C202 
C202 
1BAA 
F272 
96CF 
4FBC 
4CBC 
F272 
96CF 
SFBC 
4CRC 
c2cc 


4TFC 


c2cB8 


4CC3 
2ccc 
2cc7 
2ccc 
4CC4 
2cco 
2cc7 
2ccc 
4CC6 
2ccc 
2cc? 
2ccc 
4cce 
4C1c 
c27e 


4CCC 
2cic 


2c4e 


2277 
C724 
C9A3 
CSAE 


2ccc 
2cc? 
2ccc 
4ccc 
2ccc 
2cc7 
2ccc 
4CC2 
23Fe 


Ccy7C¢ 


cceccccce 


Se@FC 
CSEF 
c2cc 
F27C 
GéCF 
4FRC 
42PC 
SEFC 
F27C 
S6CF 
4FEC 
42RC 
9103 
478C 
§2cc 


95Fl 
478C 
95F2 
4780 
95F3 
4780 
S5FS 
477C 
$644 
4TFC 
965C 
4TFC 
G64C 
STFC 
$62C 
4TFC 


F270 
S60F 
4FBC 
42PC 
9101 
4780 


S5F1 
478C 
95F2 
4TTC 
9640 
4TFC 
962C€ 


F271 
960F 
4FBC 
42BC 
F272 
S60F 
4FBC 


C3éCc 


4004 
2ccc 
2cc? 
2ccc 
4C7C 
22F2 
2ccc 
2cc7 
2ccc 
4cc5 
4C05 
CFC 
4CCE 


2283 
C3E8 
2203 
C3EC 
2283 
C3c8 
2283 
COTE 
4CC5 
C42€ 
4CC5 
C426 
4ccs 
C426 
4cc5 
C426 


2cCC 
2ccT? 
2c0c 
4CC6 
4CCE 
C426 


2283 
C422 
2283 
COTE 
4C06 
C426 
4C06 


2cCO 
2cc7 
2ccc 
4CO7 
2coc 
2007 
2ccc 


23F5 
227C 


22eC 


2283 


2céc 


2275 


2277 
227A 


Ces af 


2274 


227C 


23F9 
227€ 


227F 


228C 


22e1 


2284 


ADORL 


ccoc3 
c37c0 
C3707 


c37c0 
C37Cc? 


c37c0 
C3707 


cccco 


C3977 


C3428 
C3427E 


c37c0 
C3707 


c37CcOo 
Caroe 


C3AFB 


cccc4 
e37ce 
C37C7? 


C39f3 
c3a7cc 
C3ICT 
cccecs 
ccccé 
C3983 
C3983 
03983 
C3983 
cceccs 
ccocs 
eccos 
ccocs 


c37Cc0 
C37C7 


ccccé 


03983 
C3983 
CC006 
coo0ceé 
c3700 
C3707 


03700 
C3707 


ACOR2 


02054 
02050 


O3AFS 
0397C 


037C0 
OCCC4 
03980 
037CO0 
0co0c6 
03983 
037CO 
ococa 
ocol10 
02CCO0 


03760 
03710 


03748 
03975 
O3LAC 
03977 
O397A 
03977 
037C0 
ococn 
O397A 
037C0 
ococ? 
03970 
O20F8 
O20F4 


O3AFS 
O39T7E 


037C0 
ocCc2r 


O497F 


037C0 
oco0os 


O2E7A 


02E70 
O2E68 
92E€60 
03406 
O2EAE 
O2EAE 
O2EAE 
O2EAE 
03980 


037C00 
ocod6 


O2EAE 


O2EAA 
03406 


O2EAE 


03981 
037C0 
oo007 
03984 


03700 


STMT 


3009+ 
3010+ 
3011¢€ 
301L2¢ 
30134 
3614 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050+ 
30514 
3052¢ 
3053 
3054+¢ 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3C68 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
30A4 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 


SOURCE STATEMENT 


1HB0032B 


READGRID 


REAOCARD 


1HB0033B8 


CNoP 


wVI 


094 


FOLAUG68 


#48 BRANCH AROUND VCON 


V(SETQUAL) 


ENTRY POINT ANDRESS 


15, 1HBOO32B LOAD 15 WITH ENTRY ADR 
14,15 BRANCH TO ENTRY POINT 


3(1,RPOINTER) »QCAD 


DW(8), INPUT4#5(4) 
Ow+7T,X*OF?® 

11,0W 
11¢4(0,RPOINTER) 
DW(8)» INPUT#¢9(3) 
OW+7,X*OF? 

11,0W 
11,6(0,RPOINTER) 
OwW(8), INPUT4#12(3) 
OW+7,X*OF® 

11,0W 
11,8(0,RPOINTER) 


RPOINTER, L6(0,RPOINTER) 


READOUTQ 


0(2,RPOINTER) »MINONE 


RPOINTER, AMATRIX 
* 

15, A4CARDIN 

14,15 
INPUT(2),STARSTAR 
ALLCOSRD 
TEMPR( 3), INPUT 
TEMPC(3), INPUT#3 
10,10 

Ow(8), INPUT(3) 
OW+7,X*OF? 

11,0W 
11,0(0,RPOINTER) 
DwW(68), INPUT43(3) 
CwW+7,X*OF? 

11,0W 
Lls2(0,RPOINTER) 
ZLAW( 1), INPUT #6 
SETZL 

04 

#+8 BRANCH 


ee 
PACK TOTAL COST TO UNLD PT 


PACK ROW UNLD PT 


PACK COL UNLD PT 


ADD 16 TO RPOINTER 
GO TO READ OUTSIDE QUARRY CARD 


SET LAST Q INDICATOR = -1 
LOAD POINTER WITH ADOR OF MATRIX 
(READ CARD) 

CALL INPUT ROUTINE 
ee 
COMPARE FOR END DATA SET CARD e# 
IF SO, GO TO ALL CARDS READ 
MOVE ROW TO TEMPR 
MOVE COL TO TEMPC 
CLEAR REGLO 
PACK ROW 
MAKE NUMBER A LEGAL POSITIVE 
CONVERT ROW TO BINARY 
STORE ROW AT ADDRESS IN RPOINTER 
PACK COL 
MAKE NUMBER A LEGAL POSITIVE 


MOVE ZONING LAW TO ZLAW 
SET ZONING LAW CONFIGURATION 


AROUND VCON 


V(SETZL) ENTRY POINT AOORESS 

15,1HB00338 LOAD 15 WITH ENTRY ADR 

14,15 BRANCH TO ENTRY POINT 

4(1,RPOINTER) »ZLAWOD MOVE ZONING LAW INTO RPOINTER+4 


OW(8), INPUT*7(01) 
Owe7,X*OF® 

11,0W 
11¢45(0,RPOINTER) 
INPUT#12,X"FO* 
OW(8), INPUT+8(1) 
OW+7,X*OF® 

11,0W 
11L,5(0e¢RPOINTER) 
S(RPOINTER),X*03° 
PACKIPQ 
6(RPOINTER),X*00* 


® AT THIS POINT IT IS A QUARRY, 


SETMSK50 
SETMSK4SO 
SETMSK20 


PACKIPQ 


cut 


ol 
B 
ol 
fA 
ol 
A 
£QU « 
PACK 


INPUT#+12,X*FL* 
SETMSK20 
ENPUT#12,X"F2* 
SETMSK40 
INPUT#¢12,X°F3° 
SETMSK50 
INPUT4#12,X"F4? 
INCARERR 
S(RPOINTER),X*44! 
PACKOWNR 
S(RPOENTER),X*50° 
PACKOWNR 
S(RPOINTER) »X"40° 
PACKOWNR 
S(RPOINTER) »X*20° 
PACKOWNR 


OW(B), INPUT#+9(1) 
OW+7,X*OF® 

11,0W 
11,6(0,RPOINTER) 
6(RPOINTER),X*O1" 
PACKOWNR 


PACK 
MAKE 


1occ 
NUMBER A LEGAL POSITIVE 


MAKE POSSIBLE BLANK A O 
PACK 1Q 
MAKE NUMBER A LEGAL POSITIVE 


1S IT A QUARRY 

IF NOT, GO TO PACK IPQ 

SET PQ = 0 

MUST NOW DETERMINE TYPE 

IS IT A CRUSHED STONE QUARRY 
IF YES, GO TO SETMSK20 

Is IT A SEG QUARRY 

IF YES GO TO SETMSK40 

TS IT A SEG Q AND AN IP 

IF YES GO TO SETMSK5O 

1S IT A S&G QO USING AN IP 

IF NOT, GO TO INCARERR 

IT IS A SEG ANDO USES AN IP 
GO TO PACK OWNR 

1T IS A SEG Q AND AN IP 
GO TO PACK OWNR 
IT IS A SEG Q, 
GO TO PACK OWNR 
IT IS A CS QUARRY 
GO TO PACK OWNR 


PACK IPQ 
MAKE NUMBER A LEGAL POSITIVE 


Is IT A PQ 


If NOT GO TO PACK OWNER 


© AY THIS POINY IT IS A PQ, WE MUST NOW DETERMINE TYPE 


SETPOM20 
PACKOWNR 


cul 
BE 
cul 
BNE 
or 

B 

ol 
EQU 
PACK 
ol 
CvB8 
STC 
PACK 
eh 
cvs 


INPUT412,X°FL? 
SETPQM20 
INPUT4+12,X°F2* 
INC ARERR 
6(RPOINTER),»X*40°* 
PACKOWNR 
6(RPOINTER) »X*20° 
* 

OW(8), INPUT#10(2) 
DW+7,X*OF®* 

11, OW 

Ll, 7(O0,RPOINTER) 
OW(8), INPUT¢13(3) 
DW+7,X*OF* 

11,0W 


IS IT A CRUSHED STONE PQ 
IF YES~e GO TO SETPQM20 
IS IT A SEG PQ 

IF NOT, GO TO INCARERR 
SET PQ TO A SEG PQ 

GO TO PACKOWNR 

SET PQ TO ACS PQ 


PACK OWNER 


PACK PERCENT SAND (IF SEG) 


NOT AN IP, NOT USING 
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toc 


QC2ECE 
CC2EL2 


OCc2ED8 
oo2ece 
oc2eCC 
OC2EEC 
OC2EE4 
OC2EEE 
OC2EEC 


CC2EF2 
OC2EF4 
CC2EF8 
OC2EFC 
CC2FCC 
CC2FC2 
oc2Foe 
OC2FCE 
OC2F12 
CC2Flé 
CC2F1e& 
OC2FIC 
CC2F2C 
OC2F2E 
OC2F2A 
CC2F2E 
OC2F3C 
OC2F34 
CC2F3e 
CC2F3C 
OC2F4C 
OC2F44 


OC2F48 
OC2F4C 
OC2F5C 
CC2F54 
cc2Fse 
OC2F5C 
CC2FEC 
CC2FEE 
CC2FEA 
CC2FEE 
CC2FT2 
CC2FTE 
OC2F7E 
CC2FTC 
CC2Fec 
CC2F84 
CC2Feé 
OC2F8eA 
CC2Fet 
CC2FeE 
CC2F94 
oc2F9e 
OC2FISC 
OC2FAC 
OC2FAE 
OC2FAA 
CC2FAE 
OC2FR2 
cc2Fee 
CC2FeC 
CC2FCC 
OC2FC4 
CC2FCA 
CC2FCE 
OC2FC2 
OC2FCE 
Oc2FCC 
CC2FEC 
CC2FE4 
OC2FEa8 
CC2FEE 
CC2FF2 
OC2FFE 
OC2FFe 
OC2FFC 
Oc3Cccc 


oc3cceé 
oc3cce 
oc3ccc 
cc3cic 
0c3014 
CC3Cl1é 
ccscic 
0C3C22 
OC3C2é 
OC302A 
OC3C2E 
CC3C34 
0c3c3e 
0C3C3C 
OC303E 
003042 
CC304E 


INPUT CONTROL SECTION (MINEINPT) 


OBJECT CCDE 


42BC 


4018 


O2CC 23F4 2287 


4TFC 


C458 


cceccocco 


58FO 
OSEeF 
D2cc 
o2cc 


o70Cc 
4TFO 


C454 


4016 
23F4 


C474 


cccceccco 


56FC 
C5SEF 
D2cc 
F273 
S60F 
4FBC 
1BAA 
5CAC 
50BC 
F273 
S6CF 
4FBC 
1RAA 
5CAC 
5SORC 
9101 
471C 
91C3 
4780 


912C 
47T1C 
9101 
4T1C 
9104 
4T1C 
F273 
S6CF 
4FBC 
4CB4 
47FC 


fers 
S6CF 
4FBC 
1BAA 
5CAC 
5CBC 


F273 
S6CF 
4FBC 
40BC 
F271 
S6CF 
4FBC 
42PC 
F270 
96CF 
4FBC 
42BC 
F271 
S6CF 
4FBC 
428C 
F27C 
96CF 
4FRC 
42BC 
F273 
S60F 
4FBC 
1BAA 
SCAC 
5OBC 
O02cC 


c70c 
4TFC 


C47C 


4C17 
2ccc 
2cc? 
2cco 


2144 
4CC8 
2ccc 
2cc? 
20CC 


2144 
4CCC 
4CCE 
C4EE 
4C05 
C5CE 


4CC5 
C408 
4Cc5 
c4ce 
4CC5 
C4EE 
2ccc 
2cc7 
2ccc 
CcO2E 
C5C6é 


2ccc 
2cc7 
2ccc 


2144 
4C1C 


2ccc 
2cc7 
2ccc 
4014 
2cco 
2cc7 
2ccc 
4024 
2cco 
2cc7 
2ccc 
4C19 
2CCC 
2cc? 
2ccc 
4CIA 
2cCO 
2ccT? 
2ccc 
4C2B 
2c0c 
2cCt 
2CCC 


2144 


401C 
23F4 


c588 


cceccccoc 


58FO 
O5EF 
O02CcCc 
F272 
960F 
4FBC 
42BC 
F273 
S60F 
4FBC 
1BAA 
SCAC 
95C1 
4780 


C584 


4028 
2cco 
2cc? 
2ccc 
4029 
2c00 
2cc7? 
2coc 


2144 
4020 
CSCC 


23F5 
2288 


2 a) 
2289 


2280 


2291 


2251 


2295 


22595 


2298 


2206 


229€ 


229F 


22A3 


23F5 
2244 


22A7 


ADORL 


C3AF4 


cc016 
C3AF4 


caol7 
c37C0 
C37CcT 


c37CO 
C3707 


co0cé 


ccoocs 


ccccs 
coocs 
ccoos 


c37cO0 
C37C7 


c37Co 
C3707 


037C0 
C37CT 


C37CO0 
c37Cc7 


c37C0 
C37c? 


037C0 
CITET 


C37CO 
C37Cc7 


c37Cc0 


C37C7 


C3AF4 


coo28a 
c37c0o 
C3707 


037C0 
C37c7 


cco20 


ACOR2 
0co18 
03987 
O2EEO 
O2EDC 
O3AFS 
03988 
O2EFC 
O2EFA 


O3AFS 
03989 


037C0 
03844 
ococs 
03980 
037C0 


03844 
ocooc 


O2FT76 


O2F8E 


02F60 
O02F60 


O2FT6 
03991 


037C0 
OCC2F 
O2F8E 
03991 
037C0 


03844 
ocolo 


03995 
0370U 
0c014 
03959 
037C0 
OcOo2A 
03998 
037C0 
oco19 
0399 
037C0 
OCOLA 
O399E 
037C0 
0C028 
0399F 
03700 
03844 
ocoic 
O39A3 
63010 
0300C 


O3AFS5 
03944 


037C0 
0c029 
O39A7 
037CO 
03844 


03054 


11,524(0,RPOINTER) 
QCA( 1), INPUT#16 
SETQUAL 

0.4 


FOLAUG68 


DETERMINE QUALITY FINE AGGREGATE 
SET QUALITY 


®+8 BRANCH AROUND VCON 

V(USETQUAL) ENTRY POINT ADDRESS 

15, 1TH80034B LOAD 15 WITH ENTRY ADR 

14,15 BRANCH TO ENTRY POINT 

22(1+sRPOINTER) »QCAD MOVE QUALITY TO RPOINTER*+22 


QCA(1), INPUT4+17 
SETQUAL 
O94 


DETERMINE QUALITY COARSE AGGREGATE 
SET QUALITY 


#+8 BRANCH AROUND VCON 

V(SETQUAL) ENTRY POINT ADDRESS 

15, 1THBO0035B LOAD 15 WITH ENTRY ADR 

14,15 BRANCH TO ENTRY POINT 

23¢(1¢RPOINTER)»QCAD MOVE QUALITY TO RPOINTER#23 


OW(8), INPUT+18(4) 
OW+7,X*OF*® 

11,0W 

10,10 

10, THOUSAND 
11,8(0,RPOINTER) 
OW( 8), INPUT+22(4) 
DW+7,X"OF*® 

11,0W 

10,10 

10, THOUSAND 
11,12(0,RPOINTER) 
6(RPOINTER) »X*OL?® 
PACKESTC 
5(RPOINTER),X*03! 
PACKCTM 


AT THIS POINT IT IS A QUARRY 


S(RPOINTER),X*20° 
SAFORTC 
S(RPOINTER) »X*O1® 
SAMORTC 
S(RPOINTER) ,X*04* 
PACKESTC 

OW( 8), INPUT+26(4) 
OW+7,X*OF® 

11,0W 
11,46(RPOINTER) 
PACKCTM 

* 

DW(8), INPUT4#26(4) 
OW+7,X*OF® 

11,DwW 

10,10 

10, THOUSAND 

Tle l16(0,RPOINTER) 
6 

DOW(8)», INPUT+30(4) 
DW+7,X"OF® 

11,0W 
11,20(0,RPOINTER) 
OW( 8), INPUT4+34( 2) 
OW+7,X°OF* 

11,0W 
11,42(O0,RPOINTER) 
DW(8), INPUT4+36( 1) 
OW+7,X"OF* 

11,0wW 
11+25(0,RPOINTER) 
OW(8), INPUT437( 2) 
OW+7,X*OF® 

11,0W 
11,26(0,RPOINTER) 
OW(8), INPUT#39¢1) 
OW+7,X"OF* 

11,0W 
11,43(0,RPOINTER) 
OW(8) » INPUT#40(4) 
OW+7,X*OF® 

11,0W 

10,10 

10, THOUSAND 
11,28(0,RPOINTER) 
QCA( 1), INPUT+44 
SETQUAL 

Or4 


PACK E(LIFE) 
MAKE NUMBER A LEGAL POSITIVE 


CLEAR REGLO 
MULTIPLY BY 1000 


PACK MAXIMUM YEARLY OUTPUT 
MAKE NUMBER A LEGAL POSITIVE 


CLEAR REG1O 
MULTIPLY BY 1000 


IS IT A PQ 

IF YES, GO TO PACKESTC 
IS IT A QUARRY 

IF NOT, GO TO PACKCTM 


CRUSHED STONE Q 

GO TO SAMORTC 

PROC PLT 

IF YES, GO TO SAMORTC 

DOES IT USE AN INTER POINT 
IF YES GO TO PACKEST 

PACK AMORTIZATION COST 


Is ITA 
IF YES» 
TS TA 


STORE AMORTIZATION COST 

GO TO PACKCTM 

{PACK ESTABLISHMENT COST) 
PACK ESTABLISHMENT COST 

MAKE NUMBER A LEGAL POSITIVE 


CLEAR REGLO 
MULTIPLY BY 1000 


PACK COST TO MINE SEG OR CS 


REMAINING 


LIFE PP (YEARS) 


PACK 
MAKE 


IDEVFO 
NUMBER A LEGAL POSITIVE 


PACK 
MAKE 


YEAR DEVFO WILL START 
NUMBER A LEGAL POSITIVE 


PACK 
MAKE 


IwiPp 
NUMBER A LEGAL POSITIVE 


PACK PROCESSED SEG TO COMPLETION 


CLEAR REGIO 
MULTIPLY BY 1000 


DETERMINE QUALITY COARSE AGGREGATE 
SET QUALITY 


#+8 BRANCH AROUND VCON 

V(SETQUAL) ENTRY POINT ADDRESS 

15, 1HBOO368 LOAD 15 WITH ENTRY ADR 

14,15 BRANCH TO ENTRY POINT 

4O(1l»+RPOINTER),QCAD MOVE QUALITY TO RPOINTER+40 


OW(8), INPUT+45( 3) 
OW+7,X*OF*® 

11,0W 
11,41(0,RPOINTER) 
OW(8), INPUT#48(4) 
OW+7,X*OF?* 

11,0W 

10,10 

10, THOUSAND 


45(RPOINTER),X*O1* 


ORED 


STMT SOURCE STATEMENT 
3108 STC 
3109 MVC 
3110 CALL 
3111+ cCNoP 
31124 8 
3113¢1THBO034B8 DC 
3114+ L 
aL15¢4 BALR 
3116 MVC 
3117 MVC 
3118 CALL 
31194 CNOP 
3120+ 8 
312141THBOO35B DOC 
3122¢ iE 
31234 BALR 
3124 MVC 
3125 PACK 
3126 or 
3127 CcvB 
3128 SR 
3129 M 
3130 ST 
3131 PACK 
3132 of 
3133 CvB 
3134 SR 
3135 ™ 
3136 ST 
3137 ™ 
3138 BO 
3139 ™ 
3140 BZ 
3141 «# 

3142 ™ 
3143 BO 
3144 ™ 
3145 RO 
3146 ™M 
3147 BO 
3148 SAMCRTC PACK 
3149 of 
3150 CvB 
3151 STH 
3152 8 
3153 PACKESTC EQU 
3154 PACK 
3155 abi 
3156 CVvB 
3157 SR 
3158 M 
a159 ST 
3160 PACKCTM €&QU 
3161 PACK 
3162 or 
3163 cvB 
3164 STH 
3165 PACK 
3166 ol 
3167 CvB 
3168 STC 
3169 PACK 
3170 or 
3171 CvB 
3172 S¥C 
S173: PACK 
3174 cep | 
3175 CVB 
3176 STC 
3177 PACK 
3178 oI 
3179 CVvB 
3180 STC 
31861 PACK 
3182 oT 
3183 cvB 
3184 SR 
3185 M 
3186 st 
3187 MVC 
3188 CALL 
31894 cnope 
3190+ B 
3191L#1HB00366 OC 
3192¢ L 
3193¢ BALR 
3194 MYC 
3195 PACK 
3196 ot 
3197 CVB 
3198 STC 
3199 PACK 
3200 or 
3201 CvB 
3202 SR 
3203 M 
3204 cLI 
3205 BE 
3206 # AT THIS POINT, 


PACK PERCENT SEG TO COMPLETION 


PACK UNPROCESSED SEG TO COMPLETION 


CLEAR REG1O 

MULTIPLY BY 1000 
DOES DEVFO GO THRU POPULATED AREA 
IF YES GO TO DRED 


DEVFO GOES THRU AN AREA WHICH IS ABLE TO: SUPPLY 
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Loc 


OC3C4A 
OC304C 
cC3csCc 
OC3C54 
003054 
oc3c58 


OC3C5E 
OC3CEC 
OC3C64 
OCc3cée 
Oc30€eC 
OC3C6E 
CC3CT4 
OC3CTA 
CC3CTE 
OCc3C82 
Oc3C 84 
oc3acee 
oc3cec 


CC30S2 
CC3C94 
oc30se 
Oc3cgc 
OC3CAC 
CC3CAZ 
OC3CAR 
OC3CAE 
OC3CB2 
CC3CBE 
CC3CBA 
Oc3cee 
CC3CC4 
oc3cce 
oc3ccc 
oc3ccc 
cc3cveé 
CC3CCA 
CC3CCE 
OC3CE2 
Oc3CcEe 
CC3CEC 
CC3CFC 
OC3CF4 
OC3CFA 
OC3CFE 
0c31C2 
CC31CE 
0c31CC 
oc311C€ 
OC3114 
oc311e 
OC311E 
CC3122 
OC312é 
OC312A 
0C312C 
OC313C 
0C3134 


003138 
CCI1L3ZE 


CC3142 
OC314E 
OC314A 
OC314C 
0c315C 
0C3154 


0c3158 
OC315E 


OC31E2 
OC31EE 
OC31EA 
OC316C 
oc317C 


OC3174 
OC31TA 


OC317E 
0c3182 
oc3Leé 
oc3l1ee 
0C318C 


0c319C 
Q0319€ 


OC319A 
OC319E 
CC31LA2 
OC31A4 
CO31LAe 
OC31AC 


INPUT CONTROL SECTION {MINEINPY) 


OBJECT CODE 


IBAA 
5CAC 
5DAC 


5CBC 
b2cco 


o7cc 
4TFC 


210C 
214C 


402C 
23F4 


C5EC 


coceccce 


S58FC 
OSEF 
C2CcC 
F273 
S60F 
4FRC 
1BAA 
5CAC 
5080 
c2cc 


c7cc 
47FO 


c50C 


402C 
2ccc 
2cc7 
2ccc 


2144 


4024 
23F4 


C614 


ccccccce 


58FC 
CSEF 
o02cc 
F271 
S6CF 
4FRC 
42BC 
$2cC 
Fer 
960F 
4FPRC 
40BC 
F272 
S6CF 
4FBC 
4CBC 
F272 
S60F 
4FBC 
4CBC 
F272 
96CF 
4FRC 
40BC 
F272 
S6CF 
4FBC 
4CBC 
F272 
S60F 
4FBC 
4CBO 
C203 


91C3 
4T5C 


0203 
47FC 


504C 
58FC 
CSEF 
4TFC 
9101 
47T1C 


02C3 
47TFC 


504C 
58FC 
OSEF 
9101 
471C 


C2c3 
47FC 


504C 
58FC 
OSEF 
91C1 
471C 


0203 
47FO 


504C 
58FC 
OSEF 
414C 
47FC 


Célc 


4C3C 
2CCC 
2CC7 
2ccc 
4C01B 
4031 
2ccc 
2cC? 
2ccc 
404C 
2ccc 
2c07 
2ccc 
4042 
2ccc 
2CC7 
2ccc 
4044 
2ccc 
2cc7 
2ccc 
4C4E 
2ccc 
2cC? 
2ccc 
4048 
2ccc 
2cc7 
2CCO 
404A 
4C5C 


4CC5 
CéBA 


4034 
Gece 


2084 
2C14 


C6E4 
4CC6 
CéCA 


4C34 
CEES 


2cee 
2c1e 


4019 
CéF6 


4038 
c7cc 


2c8c 
2cic 


4028 
C712 


403C 
C71C 


2C9C 
2C2C 


4054 
C320 


22AB 


23F5 
22AC 


22BC 


23F5 
2281 


2284 


2287 


22PA 


22B0 


22CC 


22C€3 


2CéC 


2CéC 


2CéC 


2céc 


2céa 


ADORI 


O3AF4 


co02Cc 
c37c0 
C3707 


C3AF4 


cco30 
c37c0 
CAarCy 


coo3L 
c37CcO0 
C37CcT 


c3700 
03707 


c37c0 
C3707 


c37C0o 
C37Cc? 


c37C0 
C37CcT 


c37co 
C3707 


ccoso 


cccos 


CCO34 


ccc06 


CC034 


coo19 


ccc38 


cCo2B8 


cca3c 


ADOR2 


038D0 
03840 


00020 
O39AB 
03068 
03064 


O3AF5 
039AC 


03700 
03844 
00024 
03980 
03C9C 
03098 


O3AF5 
03981 


037CO0 
OcolB 


O39P4 
037C0 
0c040 
03987 
03700 
0C042 
O39BA 
037C0 
00044 
0398f 
037C0O 
OCC46 
039C0 
037C0 
0C048 
039C3 
037Cc0 
OCO4A 
0376C 
03142 


03760 
03150 


03784 
03714 


0316C 
03162 


03760 
O316éC 


03788 
03718 
O31L7E 


03760 
03188 


0378C 
0371C 
O319A 


03760 
O31A4 


03790 
03720 


00054 
O2DA8 


STMT SQURCE STATEMENT FOLAUG68 
3207 * SOME OF ITS OWN UNPROCESSED SEG 

3208 SR 10,10 CLEAR REGIO 

3209 Ls 10,PERCFQ DETERMINE PERCENT FROM QUARRY 
3210 8) 10, HUNDRED is 

3211 DRED EQU s 

3212 ST 11, 32(0,RPOINTER) 

323 MYvC QCA(1L), INPUT#52 DETERMINE QUALITY COARSE AGGREGATE 
3214 CALL SETQUAL SET QUALITY 

3215¢# CNOP 0454 

32164 8 #+8 BRANCH AROUND VCON 

3217€1THB0037B DC V(SETQUAL) ENTRY POINT ADORESS 

321864 L 15,1HBO0037B LOAD 15 WITH ENTRY ADR 

32194 BALR) 14,915 BRANCH TO ENTRY POINT 

3220 MVC 44(1,RPOINTER),QCAD MOVE QUALITY T6-9POINTER+44 
3221 PACK OW(8), INPUT +53(4) PACK CRUSHED STONE TO COMPLETION 
3222 or OW+7,X"OF® 

3223 CvB 11,0W 

3224 SR 10,10 CLEAR REG1O 

3225 ™ 10, THOUSAND MULTIPLY BY 1000 

3226 STi 11,36(0,RPOINTER) 

3227 MVC QCA( 1), INPUT+57 DETERMINE QUALITY COARSE AGGREGATE 
3228 CALL SETQUAL SET QUALITY 

32294 CNOP 0.4 

3230+ B #+8 BRANCH AROUND VCON 

323141HBOO38B OC V(SETQUAL) ENTRY POINT ADDRESS 

3232+ L 15, 1TH80038B LOAD 15 WITH ENTRY ADR 

32034 BALR 14,15 BRANCH TO ENTRY POINT 

3234 MYC 48(1»,RPOINTER)»QCAD MOVE QUALITY TO RPOINTER#*48 
3235 PACK DW(8), INPUT+58({2) PACK YEARS TO COMPLETION 

3236 OL OW+7,X*OF* 

3237 CvB 11,0W 

3238 STC 11,27(0,RPOINTER) 

3239 MVE 49(RPOINTER),X*00* SET OUTSIDE Q INDICATOR = 0 
3240 PACK OW(8),INPUT+61(3) PACK ROW QUARRY NO 1 

3241 at DW+7,X"OF® MAKE NUMBER A LEGAL POSITIVE 
3242 CvB 11,0W 

3243 STH 11,64(0,RPOINTER) 

3244 PACK OW(8),INPUT+64(3) PACK COL QUARRY NO L 

3245 or OW+7,X*OF® MAKE NUMBER A LEGAL POSITIVE 
3246 CVB 11,0W 

3247 STH 11,66(0,RPOINTER) 

3248 PACK OW{(8),INPUT*#67(3) PACK ROW QUARRY NO 2 

3249 ot DW+7,X"OF® 

3250 CvB 11,0W 

3251 STH 11,68(0,RPOINTER) 

3252 PACK OW(8), INPUT#70( 3) PACK COL QUARRY NO 2 

3253 or OW+7,X"OF® 

3254 Cva 11,0W 

3255 STH 11, 70(0,RPOINTER) 

3256 PACK DW(8),INPUT+73( 3) PACK ROW QUARRY NO 3 

3257 ot OW+7,X*OF® 

3258 CvB 11,0W 

3259 STH Ll» 72(0,RPOINTER) 

3260 PACK OW(8), INPUT+76(3) PACK COL QUARRY NO 3 

3261 ot DW+7,X*0F* 

3262 CvB 11,DW 

3263 STH lly 74(O,oRPOINTER) 

3264 MVC 80(4,RPOINTER)»MINONE SET IP ADDR = -1 

3265 CHKQO EQU * 

3266 TM S(RPOINTER),X*03°* TEST TO SEE IF IT IS A QUARRY 
3267 6C 5, ADDQ IF YES (ITE 122,33) GO TO ADD QUARRY 
3268 # AT THIS POINT IT WAS NOT A QUARRY 

3269 MVC 52(4sRPOINTER),»MINONE MAKE Q ADDR -1 

3270 a TFPQ GO TO TEST FOR PQ 

3271 © AT THIS POINT IT WAS A QUARRY 

3272 ACOQ si RPOINTER, AQTBA STORE ADOR OF Q TO BE ADDED IN AQTBA 
3273 t 15,ASRAQ 

3274 BALR 14,15 CALL SUBROUTINE ADD QUARRY 

3275 B TFDEVFO GO TO TEST FOR DEVFO 

3276 TFPO ™ 6(RPOINTER) »X*O1?* IS 1T (A PQ 

3277 BO ADDPQ IF SO, GO TO ADD PQ 

3278 #® AT THIS POINT IT WAS NOT A PQ 

3209 MVC 52(4yRPOINTER) »MINONE MAKE PQ ADDR PTR = -1 

3280 B TFOEVFO GO TO TEST FOR DEVFO 

3281 * AT THIS POINT IT WAS A PQ 

3282 ACOPQ ST RPOINTER, APOTBA STORE ADDRESS OF PQ TO BE ADDED 
3283 L 15¢ASRAPQ 

3284 BALR 14,15 CALL SUBROUTINE ADD PQ 

3285 TFDEVFO TM 25(RPOINTER) oh 1S IT A DEVELOPMENT FORECASTED 
3286 BO AODDEVFO IF SO, GO TO ADD A DEVELOPMENT FOR 
3267 # AT THIS POINT IT WAS NOT A DEVFO 

3288 MVC 56(4,RPOINTER)»MINONE MAKE DEVFO ADDR PTR -1 

3289 B TFWIP GO TO TEST FOR wIP 

3290 =» AT THIS POINT IT WAS A DEVFO 

3291 ACODOEVFO ST RPOINTER, ADEVTBA STORE ADDR OF DEVFO TO BE ADDED 
3292 L 15, ASRADEV 

3293 BALR 14,15 CALL SUBR ADD DEVFO 

3294 TFWIP ™ 43(RPOINTER) 51 IS IT A WORK IN PROCESS 

3295 80 ADOWIP IF SO GO TO ADD WORK IN PROCESS 
3296 * AT THIS POINT IT WAS NOT A WIP 

a297 MVC 60(4,RPOINTER),MINONE MAKE WIP ADDR PTR —1 

3298 8 ADVPTR GO TO ADVANCE POINTER 

3299 # AT THIS POINT IT WAS A WIP 

3300 ACOWIP Sy RPOINTER,AWIPTBA STORE ADDRESS OF WIP TO BE ADDED 
3301 L 15,ASRAWIP 

3302 BALR) 14,15 CALL SUBR ADD WIP 

3303 AOVPTR LA RPOINTER, 84(0,RPOINTER) ADD 84 TO RPOINTER 

3304 B READCARD GO TO REAOCARD UNTIL ALL CARDS READ 
3305 ALLCOSRD EQU * 
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Loc 


CC3LAC 
OC31BC 


OC3184 
CC31iB4 
0c31B8 
Oc318S 
Cc31e8Cc 
CC3180 
oc3icc 


Oc31C2 
CO31C4 
oc3ice 
oc31ce 
oc31CCc 
OCc31CC 
CC31CC 
cc31C4 
Oc3z1Cé 
OC31CA 
CC31CE 
OC31E2 
OC31E4 
oc3z1ee 
CC31EE 
OC31F2 


CC31LF4 
cc3lFe 
CC3I1FA 
OC31FE 
Cc32C2 
0c32C4 
ec32ce 
CEIZCE 
003212 
CC321¢é 
CC321A 
OC321A 
CC32i€E 
CC3Z22 
CC322¢ 
CC322€é 
0C322A 
CC322E 
€C3232 
0C3232 


cc323e 
Cl3I23C 
OC323€ 
0C3242 
0032244 
0C3248 
00324C 
003252 
0C325€é 
0C325A 
OC325E 
OC32EC 
OC32€4 
CC326A 
OC326E 
0C3272 
CC327é 
CC327A 
OC327E 
0c3282 
0C3284 


oc32€¢e 
OC32eF 


C03292 
OC329€ 


OC329A 
CC329E 


OC32A2 
OC32AE 
CO32AA 
OC32AC 
0c32B8C 
OC32e6 
OC32BA 
OO32BE 
0C32C2 
0C32C6 
0032CA 


OC32CE 
003202 


INPUT CONTROL SECTION (PINETNPT) 


OBJECT CODE 


$50C 
478C 


451C 
co 


C9A2 
C75C 


C7368 


cooec4 


80 


CCOSA4 


OA14 


1810 
580C 


4TFC 
co 


0CC4 


C748 


CCCO48 


58C0 
CACA 
9BEC 
S2FF 
4\FC 
CTFE 
Ca | 
C226 
58FC 
CSEF 


5§asc 
1299 
474C 
sec 
12e8 
4T4C 
CSCC 
478C 
588c 
4TFC 


96ce 
589C 
4TFC 


94F7 
5890 
4 TFC 


C744 


occc 
occc 
cccc 


22C8 
2200 
2c4c 


2C64 


CTAA 
2C68 


CTgIE 
9CC7 
C792 
8034 
C7TA 


gccs 
9034 
Cte 


9co5 
9034 
c77Cc 


4CCO0 


2C6C 
C9E4 


BCCL 
2CEé4 
BO4C 
CTFE 
BO31 
2coc 


COTE 
5CCC 
RTEE 
BC4C 
Ce7eE 
5C1c 
C706 
BC4C 


ce7e 


BO4C 
C86E 


9ccs 
C878 


90C5 
C866 


BOS50 
2064 


C85A 
ACOT 
Ca4e 
ACCS 
Ce4eé 
cc28 
C856 
C84E 


BC4C 
Cev7e 


CSAS 


8CC7 


2Céc 


CALA 


BC42 


9cco 


9ccT 


ADDR 


C342A 


coccc 


c39C8 
C3900 


cccc? 


ccccs 


ccocs 


cccco 


ccc40 


coo3l 


ccoco 


€C040 


ccocs 


coocs 


cccc? 


ccoos 


ADOR2 


O31E4 


031C0 


oco04 


031C0 


O31CC 
occoc 


accco 


03431 
0374C 


03764 


03232 
03768 


03226 
occc7 
O321A 
00034 
03202 


00034 
O31F8 


00034 
O31F8 


03760 


0376C 
O33EC 


occol 
03764 
034A2 
O327E 


037CC 


03406 
acog42 
03276 
0C040 
03306 
acolo 
0325 
0c040 


033C0 
occco 
032F6 


03300 


O32EE 


00050 
03764 


032E2 
ococT 
03206 


03206 
oc028 
0320E 
03206 


00040 
03306 


ST#T SOURCE STATEMENT . FOLAUG68 
3306 cli ERRORS »X*00* WERE THERE ANY ERRORS 

3307 BE TWNE IF NOT, GO TO TWNE 

3308 CLOSE (INDCB,,OUTDCB) 

33094 CNOP 054 

3310# BAL 1,##12 BRANCH AROUND LIST 

33114 oc AL1(0) OPTION BYTE 

3312¢ oc AL3(INDCB) DCB ADDRESS 

3313+ Oc AL1(128) OPTION BYTE 

3314+ oc AL3(OUTDCB) OCB ADDRESS 

3315# svc 20 ISSUE CLOSE SVC 

3316 REEXIT 

33L7+ LR 1,13 

3318+ £ 1354%513) 

3319+ CNOP 054 

33204 B #+8 BRANCH AROUND SP#LVv 

33214 oc AL1(0) SUBPOOL VALUE 

33224 oc AL3(72) LENGTH 

3323+ L 0»#-4 LOAD SP AND LV 

3324+ SVC 10 ISSUE FREEMAIN SVC 

33254 uM 14,12,12(13) RESTORE THE REGISTERS 

3326+ VI 12(13),X°FF* SET RETURN INDICATION 

3327# LA 1550(020) LOAD RETURN CODE 

33264 BR 14 RETURN 

3329 TWNE VI CARCONT,X*11° WRITE MESSAGE 

3330 MYC OUTLINE+20(L* ICOK), ICOK WRITE NO ERRORS 

3331 L 15, AL TNEOUT 

ERS Fd BALR 14,15 

3333 # THIS SECTION SETS THE SELF-PRESERVATION BIT TO 1 FOR ALL THOSE 
3334 # QUARRIES WHOSE OPERATORS OWN AT LEAST ONE MORE POTENTIAL QUARRY 
3335 t 99SQCH LOAD REG9Y WITH START Q CHAIN 

3336 SPQLOOP LTR 9,9 ARE WE DONE WITH ALL QUARRIES 
3337 BM DONESPC IF SO, GO YO DONESPC 

3338 L 8ySPQCH LOAD REG8 WITH START PQ CHAIN 
3339 SPLOOP LTR 8,8 ARE WE DONE WITH ALL PQ*S 

3340 BM ONWTSP IF YES, GO TO DNWTSP 

3341 CLC 701,9),7(8) TS PQ(8) OWNED BY SAME OWNER Q(9) 
3342 BE HWTSP IF SAME OWNER GO TO HWTSP 

3343 L 8,52(0,8) LOAD ADOR NEXT PQ INTO REGB 

3344 R SPLOOP GO TO SPi.OOP 

3345 HWTSP EQU « (HE WISHES TO SELF PRESERVE) 

3346 or 5(9),x*08" SET SELF PRESERVE BIT = 1 

3347 L 94521009) LOAD REGI WITH ADDR NEXT QUARRY 
3348 B spqg.oope GO TO SPQLGOP 

3349 ONWTSP EQU * {DOES NOT WISH TO SELF PRESERVE) 
3350 NT 5(9)eB*LLLLO1IL® SET SELF PRESERVE BIT = 0 

3351 L 92521079) LOAD ADDR NEXT Q INTO REGO 

3352 B SPQLOOP GO yO sPQL.o0P 

3353 DONESPC EQU * (DONE SELF PRESERVATION CHECK) 
3354 MVC O(4,RPOINTER) »MINONE SET ROW & COL = -1 ~---END OF CATA 
3355 * 

3356 ® THIS PORTION ASSIGNS QUARRY ADDRESSES TO DEVFO"S AND WIP*’S 

235% 

3358 L 11,SOEVFOCH LOAD Ll WITH START DEVFO CHAIN 
3359 LTR lisll ARE THERE ANY DEVFO"S 

3360 BM TwIPS IF NOT GO TO TEST WIP*S 

3361 SR 8,8 CLEAR REG 8 

3362 LA 8,1(0,8) MAKE REG 8 CONTAIN 1 

3363 CONTO L 9»SQCH LOAD REGO WETH START QUARRY CHAIN 
3364 cLc 64(2911),=H'999% IS Q1 AN OUTSIDE Q 

3365 BNE NoTOUT1 IF NOT GO TO NOTOUTL 

3366 ol 49011) eX*OL? SET OUTSIDE Q INDICATOR = 00000001 
3367 t 5,A0S9 LOAD REGS WITH ADDR OUTSIDE Q 
3368 CUTCONEL LTR 55 ARE WE DONE 

3369 BM ENCARERR IF SO, THERE IS AN ERROR GOTO INCARE 
3370 CLC 04255) ,66(11) TS Q(5) THE CORRECT Q 

3371 BNE LANOOL IF NOT, GO TO LANOQL 

3372 ST 526410511) STORE ADDR OF OUTSIDE Q 

3373 8 1Q2SPEC GO TO 1S Q2 SPECIFIED 

3374 LANOQI LA 51161055) LOAD REGS WETH ADDR NEXT OUTSIDE Q 
3375 B OUTOONEL GO TO OUTOONEL 

3376 NOTOUTL L 50640011) LOAD Q)1 ADDR INTO REGS 

3377 LTR 595 IS ADOR O (IS Qi SPECIFIED) 

3378 BZ QINSPEC IF 0 GO TO Q1 NOT SPECIFIED 

3379 » AT THIS POINT Q1 IS SPECIFIED 

3380 QLTEST CLC 64(14,11),009) TS Q(9) THE SAME Q AS Q1 

3381 BNE UPREGOL IF NOT GO TO UPREGOL 

3382 # AT THIS POINT REGO CONTAINS THE ADDR OF QL 

3383 ™ 5(93eX"40° 1S Q(9) A SEG QUARRY 

3384 BZ QINSPEC IF NOT, GO TO Q1 NOT SPECIFIED 
3385 # THIS SECTION FINDS THE QUARRY WHICH WILL SUPPLY THE Q WHICH IS AN 
3366 # INTERMEDIATE POINT 

3387 ™ 5(9),X*10" IS Q(9) USED AS AN INTER PT 

3388 BZ Q10Kk IF NOT GO TO QLOK 

33869 # AT THIS POINT Q(9) IS AN INTERMEDIATE POINT 

3390 ST 9,80(0,11) STORE ITS ADDR IN IP LOCATION 
S391 t 10,SQCH LOAD REGLO WITH START Q CHAIN 
3392 LFNQUIP LIR 10710 ARE WE DONE LOOKING FOR AN Q 

3393 BM NCQDONE TF YES, GO TO NCQODGNE 

3394 CLC 7(1910),7(9) IS Q(10) OWNED BY SAME OWNER AS Q(9) 
3395 BNE NCO IF NOT GO TO NCQ 

3396 CLI 5(10)9X*44° TS Q{10) A SEG Q WHICH USES AN IP 
3397 BNO NCQ IF NOT, GO TO NCQ 

3398 Ic 64011) INSERT QUALITY SEG REQ*D 

3399 EX 6, TQAQ0K TS Q(10) QUALITY OK 

3400 BNO NCQ IF NOT, GO TO NCQ 

3401 © AT THIS POINT, REGIO CONTAINS A Q OWNED BY SAME OWNER AS O(9) AND 


* IT USES AN INTERMEDIATE POINT 


ST 
8 


10564(0,-11) STORE ITS ADDR IN Ql 
1Q2SPEC GO TO 1Q2SPEC 
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Loc 


00320¢é 
OC32CA 
CC320E 
0032E2 
OC3Z2E6 
OO32EA 
OC32EE 
OC32F2 
OC32Fé 
OC32FA 
OC32FC 
0033CC 
0C33CE 
OC33CA 
0C331C 
0C3314 
003318 
0c331C 
OC331E 
CC3322 
003328 
00332C 
0C332C 
0C3334 
0C3338 
0C323C 
0C0333C 
0C334C 
003342 


CC334E 
0C334C 


00335C 
CC3354 
€03358 
CC335C 
0C33€éC 
0C336€4 
OC33E€€é 
OC33EA 
0c337C 
CC3374 
OC337A 
OC337E 
0C3382 
CC336E 
oc33ee 
oco33ec 
CC3392 
003396€ 
0C339A 
CC339E 
CC323A2 
OC3I3AE 
OC33AE 
OC33AA 
OC33AC 
OC338C 
CC33e€ 
CC23BA 
0033B8E 
0C33C2 
0033Cé 
OC33CA 
0C33CE 
0C33CC 
0C3304 
OC33CA 


OC33CE 


0C33£2 
CC33EE 
0c33€e 


OC33€C 
OC33EE 
OC33F2 


OC33F4 
Cc33Fe 
O033FC 
OC33FE 
0C34C2 
OC34CE 
OC34Cé 
OC34CA 
OC34CE 
003414 
OC3414A 
0C342C 
0C3424 
003426 
CC342A 
0C342e 
OC342E 
003431 
003458 


INPUT CONTRCL SECTION (MINEINPT) 


OBJECT CODE 


58A0 
47FO 
91C¢C 
50AC 
50A0 
4TFO 
509C 
4TFO 
5890 
1299 
4 TBC 
0203 
589C 
0501 
477C 
9602 
585C 
1255 
4740 
0501 
477C 
505C 
47FC 
415C 
4TEFC 


585C 
1255 
4780 


C503 
477C 


914C 
478C 
5c9C 
STFC 
5R9C 
12S9 
4780 
C203 
589C 
o0sC1 
4770 
9604 
5850 
1255 
474C 
0501 
477C 
505C 
4TFC 
4150 
STFC 


585C 
Len 5 
478C 
C503 
477C 
912C 
478C 
50sC 
4TFC 
589C 
1299 
47BC 
0203 
$9eC 


4770 


58BC 
1288 
47BC 


1688 
58BC 
1288 


47BC 
58FC 
CTFF 
58BC 
4TFC 


92C1 
9211 
0212 
D202 
0202 
58FC 
CSEF 
4TFC 


AC34 
C822 
ACIT 
BO4C 
BC50 
C8&7E 
BO40 
C87E 
9034 


cacc 
B040 
2064 
BO044 
C8R4 
BC31 
2coc 


CITE 
s5ccc 
C8AC 
BC44 
Cees 
SCIC 
C894 


BC44 
C8E2 


BO044 
cscs 


9ccs5 
C8E2 
BC44 
ceee 
9034 


C&8BE 
BC44 
2C64 
BC48 
C9LE 
BC31 
2ccc 


CSTE 
5CCcO 
C916 
BC48 
C952 
5C1C 
CREE 


6048 


C94C 
B04e8 
C942 
9cos 
c94C 
8C48 
cs52 
9C34 


C928 
BC48 
CAL4 
C976 
BC38 


c7cc 


2c7c 


c7cc 
2c5C 


BC3C 
C96A 


C9A2 
22C8 
22C0 
22€1 
22EC 
204C 


C7IC 


ADORI 


cool? 


2céc Cc040 


CALA CC044 
coo31 


BC46 CCCCO 


9CCC C0044 


ccocs 


2céc CCC44 


CALA ClOC4B 


cco3l 


PO4A CCCCO 


SCCC CC048 


cco0s 


20éC C0048 


C342A 
c39C8 
C9F8 C39C0 
CSA3 C39EL 
C9A6 C39ED 


C9OD5D7E4E34CC3C1 
E3C@C54CC6060303 


ADOR2 


00034 
O32AA 


00040 
00050 
03306 
00040 
03306 
00034 


03288 
03760 
03764 
034A2 
0333C 


0370C 


03406 
00046 
03334 
00044 
03370 
00010 
0331C 


00044 
0336A 


ococo 
03360 


0336A 
0C044 
03370 
00034 


03346 
03760 
03764 
034A2 
033A6 


037CC 


03406 
GOCO4A 
0339E 
OC048 
0330A 
0co10 
03386 


0C048 
03304 
ococo 
033CA 
03304 
0C048 
033DA 
00034 
03380 
03760 
0349C 
O33FE 
0c038 


03248 


03770 


03248 


03750 


oco3c 
033F2 


03480 
0342R 
0342E 
O374C 


03144 


ST¥T 


3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
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LOAD REGLIO WITH ADOR NEXT QO IN CHAIN 

GO TO LFNQUIP 

1S QUALITY O.K. 

SET Q1 ADDR = -1 


SET INTERMEDIATE PY ADDR = -1 
GO TO 1Q2SPEC 
STORE ADDR (IN REGI) OF QL 


GO TO IS Q2 SPECIFIED 

LOAD REGO WITH ADDR NEXT Q@ IN CHAIN 
TS ADDR NEG (ARE WE DONE) 

IF NOT GO TO QLTEST 

SET Q1 ADOR = -1 

LOAD REGO WITH START QUARRY CHAIN 
IS Q2 AN OUTSIDE Q 

IF NOT GO TO NOTOUT2 

SET OUTSIDE Q INDICATOR = 00000010 
LOAD REGS WITH ADDR GUTSIDE Q 

ARE WE DONE 

IF SO, THERE IS AN ERROR GOTO INCARE 
TS 0(5) THE CORRECT Q 

IF NOT, GO TO LANOQ2 

STORE ADOR OF OUTSIDE Q 

GO TO 1S Q3 SPECIFIED 

LOAD REGS WITH ADOR NEXT OUTSIDE Q 
GO TO OUTDONE2 


LOAD REGS WITH ADDR Q2 
1S Q2 SPECIFIED 
IF O, GO VO Q2 NOT SPECIFIED 


DOES REGS CONTAIN ADOR OF Q2 
IF NOT GO TO UPREGI2 


REGO CONTAINS THE ADOR OF Q2 


TS Q(9) A S&G QUARRY 

IF NOT, GO TO Q2 NOT SPECIFIED 
STORE ADOR (IN REG9) OF Q2 

GO TO IS Q3 SPECIFIED 

LOAD REGO WITH ADDR NEXT Q IN CHAIN 
1S ADOR NEG (ARE WE DONE) 

IF NOT, GO YO Q2TEST 

SET Q2 ADOR = -1 

LOAD REGO WETH START QUARRY CHAIN 
1S Q3 AN OUTSIDE Q 

IF NOY GO TO NOTOUT3 
SET OUTSIDE Q INDICATOR = 00000100 
LOAD REGS WITH ADOR OUTSIDE Q 

ARE WE DONE 

IF SO, THERE IS AN ERROR GOTO INCARE 
1S Q(5) THE CORRECT Q 

If NOT, GO TO LANOQ3 

STORE ADOR GF OUTSIDE O 

GO TO CHAIN CHECK 

LOAD REGS WITH ADDR NEXT OUTSIDE Q 
GO TO OUTDONE3 


LOAD ADDR Q3 INTO REGS 

TS ADDR O {1S Q3 SPECIFIED) 

IF 0 GO TO Q3 NOT SPECIFIED 

DOES REGS CONTAIN AODR OF Q3 

IF NOT GO TO UPREG93 

IS Q(9) A CRUSHED STONE QUARRY 

IF NOT GO TO Q3 NOT SPECIFIED 

STORE ADOR (IN REGO) OF 93 

GO TO CHAINCK 

LOAD REG9 WITH ADDR NEXT Q@ IN CHAIN 
IS ADOR NEG (ARE WE DONE) 

IF NOT, GO TO Q3TEST 

SET Q3 ADOR = -1 

DOES REGS CONTAIN 1 (ARE WE IN DEVFO 
CHAIN) 

If NOT GO TO IN WIP CHAIN 


THE DEVFO CHAIN 


LOAD REGLL WITH NEXT DEVFO IN CHAIN 
ARE WE DONE WITH DEVFO'S 
IF NOT DONE GO TO CONTD 


CLEAR REGS 

LOAD REGLIL WITH START WIP CHAIN 
TS ADDR NEG (ARE WE DONE WITH WIP 
CHAIN) 

IF NOT GO TO CONTD 

LOAD REG15 WITH AODR BEGINIT 

AND BRANCH TO BEGINIT 

LOAD REG11 WITH NEXT WIP IN CHAIN 
GO TO TWIPLP 


SET ERRORS = 1 
WRITE & SKIP 1 


GO TO ADVPYR 


C*INPUT CARDS CONTAINED NO OBVIOUS ERRORS® 


SOURCE STATEMENT 
NCQ t 16,52(0,10) 
8B LFNQUIP 
TQAQO0K ™ 23(10),x*00° 
NCQOONE ST 10,64(0,11) 
ST 10,80(0,11}3 
8 1Q2SPEC 
Q10Kk st 9,640,111) 
B TQ2SPEC 
UPREGSL L 99521009) 
LTR 959 
BNM QLTEST 
QINSPEC MVC 64(4,11) >MINONE 
TQ2SPEC L 9,SQCH 
CLC 68(2,11),=H*999° 
BNE NOTOUT2 
or 49(11).x"02* 
L 5,A0SQ 
OUTDONE2 LTR 5,5 
BM INCARERR 
CLC 012.5),70(11) 
BNE LANOQ2 
st 5268(0,11) 
B 1Q3SPEC 
LANOQ2 LA 5,1610,5) 
8 OUTDONE2 
KCTOUT2 EQU * 
L 5968(0,11) 
LTR 5,5 
BZ Q2NSPEC 
* AT THIS POINT, Q2 IS SPECIFIED 
Q2TEST CLC 68(4,11),019) 
BNE UPREG92 
# AT THIS POINT, 
™ 5(9),X"40* 
BZ Q2NSPEC 
Ti 9,68(0,11) 
B TQ3SPEC 
UPREG92 L 9,5210,9) 
LTe 9.9 
BNM QZTeEST 
Q2NSPEC PVC 68(4,11),MINONE 
1Q3SPEC L 9,SQCH 
CLC 72(2911),=H"999° 
BNE NOTOUT3 
of 49(11)9X*04? 
L 5,A0SQ 
OQUTOONE3 LTR 595 
BM INCARERR 
CLC O(2,5)e74111) 
BNE LANOQ3 
ST 5e72(0e1L) 
6 CHAINCK 
LANCQ3 LA 51161055) 
B OUTOONE3 
NOTOUT3 § EQU * 
L 5eT2(0,11) 
LTR 595 
BZ Q3NSPEC 
Q3TEST cLCc 72(4,11),0(09) 
BNE UPREG93 
™ 5(9),x"20° 
BZ Q3NSPEC 
ST 9,72(0,11) 
B CHAINCK 
UPREG93 OL 945210,9) 
LTR 9,9 
BNM Q3TEST 
Q3NSPEC PVC 72(4,11)—>MINONE 
CHAINCK C€ 8,=F'l® 
. 
BNE IWIPCH 
® AT THIS POINT WE ARE IN 
t 11¢56(0,11) 
LTR lisll 
BNP CONTO 
* AT THIS POINT WE ARE OONE WITH DEVFO CHAIN 
TwiPs SR 8,8 
iB 11,SWIPCH 
TWIPLP LTR 11,11 
* 
BNM CONTD 
t 15,ABEGINIT 
BR 15 
IWIPCH L 11°60(0,11) 
B TWIPLP 
INCARERR EQU * 
MV ERRORS «X*O1* 
MVI CARCONTyX* 11? 
MVC OUTLINE+20(L*RCINE)»RCINE 
MVC OUTLINE+24(3),TEMPR 
MYC OUTLINE+36(3),TEMPC 
L 15, AL ITNEOUT 
BALR 14,15 
B ADVPTR 
ERRORS os x 
TEMPR os cCL3 
TEMPC oS cu3 
TCOK oc 
INMES oc 


C*THE FOLLOWING INPUT CARDS CONTAIN ERRORS®* 


LOC OBJECT CODE 


INPUT CONTRCL SECTION (MINEINPT) 


ADDRL ADDR2 


003480 CIDEE64040404068 


0c34se 
0c349e8 
OC34SC 
OC34AC 
0C34A2 


4264CCCC 
cCCCCCCL 
ccac 
Cc3E7 


STMT 


3504 
3505 
3506 
3507 
3508 
3509 
3510 
250% 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3536 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 


RCINE 
WE ARE NOW READY TO BEGIN ACTUAL SIMULATION 


seas eoceeeoaeseoeeueeaeae see eeneseeneawaneseeerweeeneeeoanaeemre eke meeweeaeasene 


ALL REGISTERS EXCEPT -- 


#50 
+51 
#52 
#56 
+60 
+64 
+68 
+72 
+76 
+80 


SOURCE STATEMENT 


oc C*ROwW 


COLUMN 


13 
12 
2 


FOLAUG6S 


MSAVEAREA ADDRESS 
BASE REGISTER 
ADDRESS OF COMMON AREA MAY BE USED 


TABLE ARRANGEMENT (STARTING AT MATRIX) 


REL ADOR LENGTH 


Ne ee et et ee De ee ee DD De ee em ee ND 


J 


SHELL HP HRS 


LTORG » 
=E*100° 
=heLt 
=H°128° 
=H"'999" 


DESCRIPTION 


ROW 

CcoL 

ZONING LAW 

IS IT A QUARRY 

IS IT A POTENTIAL QUARRY 

OWNER 

LIFE OF QUARRY 

MAXIMUM YEARLY OUTPUT 
ESTABLISHMENT COST 

COST TO QUARRY SEG OR CRUSHED STONE 
QUALITY, FINE AGGREGATE 

QUALITY, COARSE AGGREGATE 

PERCENT SAND (IF SANDE&GRAVEL) 

1S A DEVELOPMENT FORECASTED 

YEAR DEVFO WILL START 

YEARS TO COMPLETION 

PROCESSED SEG TO COMPLETION 
UNPROCESSED SEG TO COMPLETION 
CRUSHED STONE TO COMPLETION 
MINIMUM QUALITY PROCESSED SEG REQ*D 
PERCENT SAND TO COMPLETION 
REMAINING LIFE PROCESSING PLANT 
IS WORK IN PROCESS 

MINIMUM QUALITY UNPROCESSED SEG REQD 
IS GRID OCCUPIED 

AMORTIZATION COST 

MINIMUM QUALITY CS REQUIRED 

IS OUTSIDE QUARRY SPECIFIED 

0 = NOs CQO0000L = PROCESSED SEG 
09000010 = UNPROCESSED SEG, 
00000100 = CRUSHED STONE 


Q OR PQ POINTER 

DEVFO POINTER 

WIP POINTER 

ADDRESS Q NO 1 

ADDRESS QUARRY NO 2 

ADDRESS QUARRY NO 3 

USAGE DURING PRESENT PERTOD 
INTERMEDIATE POINT ADDRESS 
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SUBROUTINE SRPQCOST 


tcc OBJECT CODE 


CC34A4 
O0C34A4 
OC34A4 
CC34A8 
CC34AA 
CC34AE 
003482 
OC348E 
0c346e 
OC34BE 
0C34C4 
OC34CA 
OC34CE 
OC34C2 
Oc34Cé 
OC34CA 
0C34CC 
CC34EC 
CC3I4E4 
CC34Ee 
OC34EC 
OC34FC 
OC34FE 
OC34FA 
CC34FE 
0C35C2 
OC35CE 
OC35CA 
OC35CE 
0C3512 
CC3S1é 
CC351A 
OC351E 
0C3522 
OC352é 
OC352A 


0C352E 
003532 
003536é 
OC353A 
CC353E 
003542 
OC354E 
003548 
0C354C 
0C355C 
0C3554 
ccC3558 
C0O355A 
0C355C 
OC355E 
CC3562 
OC3I5EE 
CC356A 
OC3S5éE 
003574 


cc3578 
Cc357C 
0c3582 
OC358eé 
0c35aC 
oc35éeCc 
00359C 
0C3592 
603598 
cC359C 
OC359E 
CO35A2 
OC35AE 
OC35AA 
OC35AE 
0C3584 
0c356e 
oo3sec 
Cc35CC 


9CEC 
183F 
58EC 
SCEC 
50DE 
180E 
0203 
0203 
0203 
§2cc 
§2CC 
5846 
589C 
1299 
4740 
9140 
4780 
g918C 
471C 
C5c0 
478C 
S5CC 
4T71C 
9532 
47BC 
43B0 
44BC 
4780 
4TFC 
4380 
44BC 
478C 
9201 
91Ccl 


471C 
9102 
4T1C 
4TFC 
589C 
47FO0 
1B6é 
587C 
5C6C 
5060 
586C 
18667 
1676 
1BEE 
5C60 
50éC 
5C70 
4ATC 
0203 
9104 


4T1Cc 
0203 
4TFC 
C2c3 


58FC 
OSEF 
0203 
S8FC 
CSEF 
SATO 
5970 
472C 
5090 
0203 
5070 
4TFC 
4880 
1Béé 


occc 


32cCCc 
ccce 
cco4 


2104 
21C8 
210C 
25ER 
23F2 
21¢Cc 
2C68 


31EE 
9CCE 
3C9A 
9c0é 
3C9A 
4CCT 
3C5E 
90C7 
309A 
9018 
3C7é 
2268 
31F@ 
3186 
3C82 
2269 
31LFC 
318€ 
eer 
23FC 


3CA2 
23F0 
311e@ 
3C9A 
9C34 
3C36 


9c1c 
2ccc 
3254 
S01Cc 


214C 
gcce 
324C 
9014 
2CBC 
23FC 


3CE2 
2CB4 
3CE8 
2CB4 


2034 


20C4 
2038 


2cc8 
2104 
308E 
2CF4 
2CE8 
2104 
308E 
9014 


213C 
213C 
213C 


SccT 


scco 


2cB8 


4cco 


2CA4 


324C 


ADORL 


C38C4 
C38Cc8 
038CC 
C3AFL 
C3AF2 


cCCOC6 
Ccccé 
ccoc? 
cccc7 


cocis 


C3AFL 
C3AFO 


C3AFO 


C3780 
C3AFO 


C37R4 


C37TR4 


037C4 


C37E8 


ACDR2 


ocooc 


O36A4 
ocoos 
occo4 


0383C 
0383C 
0383C 


03800 
03768 


03692 
0353E 


0353E 
occoT 
03502 


0353E 


O351A 
03968 
0369C 
0362A 
03526 
03969 
036A0 
0362A 


03546 


035BC 
O353E 
00034 
034CA 


ocoic 
037CC 
036FA 
oco10o 


03840 
ocoos 
036FO 
0co14 
occco 


03586 
03788 
0358C 
occco 


03734 


O3TA4 
03738 


037C8 
03804 
03532 
O37F4 
036F0 
03804 
03532 
0c014 


STMT 


3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
357k 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 


SOURCE STATEMENT 


eeoeoeeeeoeeuespeeeeeoeenee eae e ee 


SOWF INK O 


OUTPUT PARAMETERS ARE 


Q 


FOLAUG68 


THIS SUBROUTINE PICKS THE LOWEST COST POTENTIAL QUARRIES FOR 

1) THOSE WHICH MUST HAVE A PROCESSING PLANT BUILT AT THE SITE, 

2) THOSE WHICH USE THE ZONED OUT OR DEPLETED QUARRY AS AN INTER PT, 

AND 3) THOSE WHICH DO NOT REQUIRE PROCESSING 

INPUT PARAMETERS ARE 
AND STRATEGY 


IQ = QUARRY IN QUESTION (ZONED OUT OR DEPLETED 
--TEST FOR UNPROCESSED GNLY TO WGCUPSG 

-- TEST FOR PROC PLT AT NEW Q — TO WGCPSG 

-- TEST WITH INTERMEDIATE POINT 

3 -—- TEST WITH ALL OF THE ABOVE 

-- TEST UNPROCESSED ONLY - TO Q(4) 

-~ TEST FOR PROC PLT AT NEW Q — TO Qt4) 

-- SAME AS 2 

-- NOS- 47596 
ADDORPQL = ADDRESS LOWEST COST PQ 
COSTCMP1L = TOTAL COST OF °° 
AMORT1 = AMORTIZATION COST OF ** 
ADORPQ2 = ADDRESS OF LOWEST COST PQ USING IP 
COSTCMP2 = TOTAL COST USING ** 
AMORT2 = AMORTIZATION COST USING 
ADDRPQ3 = ADDRESS OF LOWEST COST 
COSTCMP3 = TOTAL COST OF °¢* 


WITH PP 


Q(4) +PQ19) 
NON PROC PQ 


AMORT3 = AMORTIZATION COST OF *° 
USING #,3 
SRPQCOST EQU * (SUBROUTINE POTENTIAL QUARRY COST) 
STM 14512,12(13) 
LR 3,15 
t 14, ASAVPQC 
st 14,8113) 
st 13,4¢14) 
LR 13,14 
MVC COSTCMP1(4),LARPOSN SET COSTCMPL = LARGEST + NUMBER 
MVC COSTCMP2(4),LARPOSN SET COSTCMP2 = LARGEST + NUMBER 
MYC COSTCMP3(4),LARPOSN SET COSTCMP3 = LARGEST * NUMBER 
KVI PTPQF,X*00* SET PTPQF = 0 
MVI NPTPQF,X*OO# SET NPTPQF = 0 
L 4,Q1Q LOAD QUARRY IN QUESTION INTO REG4 
L 9,SPQCH LOAD REGO WITH START PQ CHAIN 
AREWDONE LTR 939 ARE WE DONE 
aM POCRET IF SO, GO TO PQCRET 
™ 619)_X"408 IS 1¥ A SEG PQ 
82 ADVPQPTR IF NOT GO TO ADVPQPTR 
TH 6(9)~-xX"80° HAS IV BEEN ZONED OUT 
80 ADVPQPTR IF SO GO TO ADVPQPTR 
cLc 74104),719) IS IT OWNED BY SAME OWNER 
BE TESTPER IF SG, GO TO VESTPER 
cu! 7(9),xX*00* IS IT AVAILABLE — UNOWNED 
BNE ADVPQPTR IF NOT, GO TO ADVPQPTR 
TESTPER CLI 24(19),50 IS IT AT LEAST 50 PERCENT SAND 
BNL TESTGRAV IF NOT, GO TO TESTGRAV 
Ic 11, OF AREQPR DOES FINE AGGREGATE REQ PROC 
EX L1,CIFARPR2 pa 
BZ cup If NOT GO TO CuP 
B SETPRI GO TO SETPRI 
TESTGRAV IC 11, DCAREQPR OCES COARSE AGGREGATE REQ PR 
Ex 11,CICARPR2 a3 
AZ cup IF NOT, GO TO CuP 
SETPRI MVI PTPQF,X*O1* PROCESSING TYPE FOUND SET PTPQF=1 
™™ STRATEGY,X*OL* DO WE WANT YO INVESTIGATE BUILDING 
* A PROCESSING PLANT AT THE NEW SITE 
80 cwee IF YES, GO TO CwPeP 
TESTCWIP TM STRATEGY,X*02'* DO WE WANT TO INVESTIGATE AN IP 
80 cwie IF YES, GO TO CwIP 
8 ADVPQPTR OTHERWISEs GO TO ADVPQPTR 
ADVPQPTR L 92521029) LOAD REGO WITH ADOR NEXT PQ IN CHAIN 
B AREWOONE GO TO AREWDONE 
CwPeep SR 656 CLEAR REG6 
L 72161059) LOAD REG 7 WITH ESTABLISHMENT COST 
™ 6,A0EPP MULT BY ALLOWANCE ON EXISTING PLANT 
0 6,=F'10°* € OIVIOE BY 10 FOR FRACTION SAVINGS 
u 6,1610,9) LOAD ESTABLISHMENT COST INTO REG6 
SR 657 SUBTRACT SAVINGS FROM ESTABLISH COST 
ur 796 LOAD ACTUAL EST CST INTO REG7 
SR 66 CLEAR REG46 
M 6,HUNDRED CONVERT EST CST TO PENNIES 
0 6,810.9) DIVIDE BY EXPECTED LIFE 
st Te AMORT STORE AMORTIZATION COST IN AMORT 
AH 72201059) ADD COST TO MINE 
MVC POINT1(4),0(9) SET POINTL TO LOCATION PQ 
TM STRATEGYsX*04? DO WE WANT TO FIND LOWEST COST 
® FROM PQ(9) TO Q(4) 
BO SETP204 IF YES GO TO SETP2Q4 
MVC POINT2(4) »WGCPSG MOVE WGC PROC SEG TO POINT 2 
B PTDET GO TO PTOET 
SETP2Q4 MVC POINT2(4),0(4) SET POINT 2 TO Q(4) 
PTOET €Qu * 
L 15,ASRDIST LOAD 15 WITK ADCR SUBROUTINE DIST 
BALR) 14,15 CALL SUBROUTINE DISTANCE 
MVC TRANSD(4) ,DISTX SET DISTANCE PARAMETER 
L 15,ASRTRCST LOAD 15 WITH ADDR SR TRANS CST 
BALR 14,15 CALL SUBROUTINE TRANSPORTATION COST 
A ToFIKPTCST ADD TRANS CST PQS TO Q4 & Q4& TO WGC 
Cc 7+COSTCMPL IS COST HIGHER THAN PREV LOW COST 
BH TESTCWIP IF YES, GO TO TESTCHWIP 
st 9,ADDRPQL STORE EV¥S ADDR IN ADORPQL 
MVC AMORT1(4),AMORT STORE AMORTIZATION COST IN AMORTL 
AY 7,COSTCMPL STORE NEW LOW COST IN COSTCMPL 
8 TESTCWIP GO TO TESTCWIP 
Cwie LH 8,20(0,9) LOAD COST TO MINE INTO REGS 
SR 696 CLEAR REG6 : 
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tec 


0035C2 
oc35cé 
OC35CA 


OC35CE 


0c35C2 
CO35DE 
0c3508 
CC35CE 
CO35E4 
CO3S5Ee 
OC35EA 
CC35FC 


OC35F4 
OC35FE 
OO35FA 
Oc3éCC 
CC36C4 
CC36ECE 
cc3é0c 
Oc3é1C 
0C3612 
OC3E1E 
OC3é14 
OC3E1E 
0C3622 
OC3E2E 
OC3E2A 


OC362E 
0C363C 
OC3€34 
CC363e 
0C363C 
CC364C 
0C3644 
OC3E4GA 


OC364E 
OC3652 
oc3¢ese 
OC365C 
CC3éE2 
OC3E62 
OC3EEE 
003668 
OC3ECE 
OC3ET72 
OC3674 
oc3é7e@ 
OC3ETC 
CC368C 
OC3684 
Oc3é€€e 
OC3EBE 
0C3E92 
0C3€92 
OC3EGE 
OC3ESA 
0C3é9C 
OC3EAC 
OC3EA4 
OC3éAL 
OC3EFC 
OC3EFEe 
CC36F8 


SUBROUTINE SRPQCOST 


OBJECT CCDE 


587C 
5D6C 
4C7C 


5D6C 


5070 
1A87 
02C3 
0203 
58FC 
OS5EF 
0203 
58FC 


OSEF 
5A80 
0203 
58FC 
OSEF 
02c3 
58FC 
CSEF 
5ABC 
598C 
4720 
509C 
50ec 
4TFC 
92Cl 


1B6E 
5870 
5cé6c 
5D6C 
5C70 
4A70 
0203 
91C4 


4T1C 
02C3 
4TFC 
0203 


58FC 
OSEF 
0203 
58FC 
CSEF 
5A7C 
597C 
472C 
so9c 
507C 
02c3 
4TEC 


58cc 
S8EC 
CTFE 
$1CC 
S1CC 


4cce 
214C 
402E 


9008 
2CEC 


2CBC 
2CB4 
2034 


20C4 
2C38 


2cc8 
20B4 
2034 


2CC4 
2c38 


2cc8 
21C68 
3C9A 
2crea 
21C8 
309A 
23F2 


901¢ 
214C 
9cce 
324C 
9014 
2CBO 
23FC 


3188 
2CB4 
3LBE 
2CB4 


2034 


2CcC4 
2€38 


2cceé 
21CC 
3C9A 
20FC 
21CC 
20FC 
309A 


32c8 
oocc 


9C16 
9017 


CCCC36AB 


COCCCCOA 


4CCC 
sccc 


2CA4 


2cRne8 


2CA4 


sccc 


2cac 


4CCC 


20A4 


324C 


ADDR1 


C3780 
C37B4 


037C4 


C37R4 


C37C4 


C3AF2 


03780 
C3AFO 


C3I7B4 


C37R4 


C37C4 


C37FO 


caolé 
ccol7 


ADOR2 


ocoos 
03840 
oco2eE 


ocoos 
O37EC 


ococo 
ecoco 
03734 


O37A4 
03738 


037C8 
03788 
03734 


O37A4 
03738 


037C8 
03808 
0353E 
037F8 
03808 
0353E 


ocolo 
03840 
ocoos 
036F0 
OCC14 
occco 


0365C 
0378C 
03662 
occoco 


03734 


O37A4 
03738 


037C8 
0380C 
0353E 
O37FC 
0380C 
036F0 
0353€ 


O36AC 
ococc 


STMT 


3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
371k 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3731 


SOURCE 


cup 


SETP20I1Q 
PT2DET 


PCCRET 


CIFARPR2 
CICARPR2 
ASAVPQC 
SAVPOQC 
AMORT 


STATEMENT 
t 7981054) 
D 6,HUNDRED 
MH 72461094) 
13] 6581009) 
ST 7, AMORT2 
AR By7 
MVC POINT1(4),0(4) 
MVC POINT2(4),0(9) 
L 15,ASRDIST 
BALR 14,15 
MVC TRANSD(4),01STX 
L 15, ASRTRCST 
BALR 14,15 
A 8,FIXPTCST 
MVC POINT2(4),WGCPSG 
t 15,ASRDIST 
BALR 14,15 
MVC TRANSD(4),DISTX 
L 15,ASRTRCST 
BALR 14,15 
A 8,FIXPTCST 
Cc 8,COSTCMP2 
BH ADVPQPTR 
ST 9,ADDRPQ2 
ST 8, COSTCMP2 
B ADVPQPTR 
MVI NPTPOF»X*OL® 
SR 696 
L 7716(0,9) 
Ld 6,»HUNDRED 
13} 6,810.9) 
sT 7,AMORT 
AH 7+20(0,9) 
MVC POINTL(4),0(9) 
™ STRATEGY,X"04* 
BO SETP2QITQ 
MYC POINT2(4),WGCUPSG 
8 PT2DET 
MVC POINT2(4),0(4) 
EQU * 
L 15,ASROIST 
BALR 14,15 
MVC TRANSD(4) ,01STX 
L 15, ASRTRCST 
BALR 14,15 
A TyFIXPTCST 
GC 7,COSTCMP3 
BH ADVPQPTR 
ST 9,ADDRPQ3 
ST T»COSTCMP3 
MVC AMORT3{4),AMORT 
8 ADVPQPTR 
£QU * 
t 13,SAVPQC 44 
tM 14,12,12(13) 
BR 14 
™ 22(9),x*00° 
TM 2319),X*008 
oc A(SAVPQC) 
os 18F 
OS F 
LTORG 
=F°10* 
oroP 3 


FOLAUG68 


LOAD LIFE Q(4) INTO REG7 

DIVIDE BY 100 TO CONVERT TO PENNIES 
MULTIPLY BY AMORT$/TON = 

TOTAL REMAINING AMORTIZATION DOLLARS 
DIVIDE REMAINING AMORTIZATION COST 
BY LIFE PQ(9) 

STORE IN AMORT2 

ADD AMORT COST TO REGS 

STORE ADDR OF DEPLETED Q IN POINTL 
STORE ADDR OF PQ BEING INVESTIGATED 
CALL SUBROUTINE DETERMINE OISTANCE 
as 


MOVE DIST BETWEEN PO9 & 04 TO TRANSD 
CALL SUBROUTINE DETERMINE TRANSPORTA 
TION COST 

oe 

ADD TRANSPORTATION COST 

STORE WGC PROC SEG IN POINT2 

FIND DISTANCE FROM Q4 TO WGC 

CALL SUBROUTINE DISTANCE 

SET DISTANCE PARAMETER 

CALL SR TRANSPORTATION COST 

ee 

ADD TRANSPORTATION COST 

IS COST HIGHER THAN PREV LOW COST 
IF YES, GO TO ADVPQPTR 

STORE ITS ADOR IN ADDRPQ2 

STORE COST IN COSTCMP2 

GO TO ADVPQPTR 

A NON-PROCESSING TYPE FOUND 

SET NPTPQF = 1 

CLEAR REG6 

LOAD EST CST PQ(9) INTO REGT 
CONVERT EST COST TO PENNIES 
OIVIDE BY LIFE 

STORE AMORTIZATION COST IN AMORT 
ADD COST TO MINE 

STORE ROW &€ COL OF PQ(9) IN POINTL 
00 WE WANT TO FIND LOWEST COST 
FROM PQ(9) TO Q(4) 

IF VES GO TO SETP2Q0I1Q 

SET POINT2 = WGC UNPROCESSED SEG 
GO TO PT2DET 

SET POINT 2 TO Q(4) 


CALL SUBROUTINE DISTANCE 
oo 


SET DISTANCE PARAMETER 

CALL SUBROUTINE TRANSPORTATION COST 
oe 

ADD TRANSPORTATION COST TO REG7 

IS COST HIGHER THAN PREVIOUS LOW 

IF YES, GO TO ADVPQPTR 

STORE ITS ADDR IN ADDRPQ3 

STORE ITS COST IN COSTCMP3 

STORE AMORTIZATION COST IN AMORT3 
GO TO ADVPOPTR 


SSHSSHSHHKTAHEDHATGHHHHHSSHSHHHSHHHHRHHHEHSHHOSOOC CHESS SEESEREHBERSESE 
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Loc 


OCc37CC 
oc37¢cCc 
oc37Cce 
0c370C 
oc371Cc 
003714 
oc371e8 
oc371C 
0c372C 
Cc3724 
0C3728 
0c372C 
0C373C 
003734 
0C3738 
0c373C 
OC374C 
OC3744 
OC3748 
00374C 
oc375C 
0C3754 
oc375é 
0C375C 
Cc376éC 
003764 
0C37é8 
Oc3a7éd 
ec3a77c 
003774 
oc377eé 
oc377C 
oc37eCc 
oc37e4 
oc37ee 
Oc37eC 
0c379C 
003754 
0c3798 
OCc37SC 
OC37AC 
OC37A4 
OC37A8 
OC37AC 
oc37ec 
OC37B4 
oc37Be 
oc37eCc 
oc37cc 
GC37C4 
oc37ce 
Cc37cc 
OC37CC 
OC37C4 
oc3s7ce 
cc37CC 
CC37EC 
OC37E4 
OC37Ee 
CC37EC 
OC37FC 
OC37TF4 
CC37F8 
OC37FC 
co3ecc 
OC3eC4 
co3ece 
OCc38CC 
oc3ze1c 
CC3e14 
oczele 
oc3zeic 
OC382C 
0C3824 
oc3e2e 
cc3e2c 
Oc3#3C 
0C3e@34 
oc3e38 
0Cc383C 
Oc384C 
0C3e844 
0c3e48 
0c384C 
oc3esc 
oc3e5s4 
oc3e58 
oc3esC 
OCc3e8éEC 
0C3864 
OC3et8 
OC38éEC 
oc3ae7c 
0C3874 
oc3e7e 
Oc3e7C 
oc3eac 
oc3e84 
oo3eee 


CONSTANTS, COPMON, AND MATRIX 


OBJECT CCDE 


cocc37cc 
ccece3A5sc 
cocc3c7e 
coccceco 
coccccoo 
eccceccce 
ceccccce 
cccccoco 
ccccecco 
ccocccce 
ccccccce 
ceccecce 
cccccccc 
ceecccce 
cOcccocc 
cececcco 
ccoccoce 
ccccecece 
cecccoco 
coccccce 
ceccccce 
cceccccco 
FRFFEFFF 
FRREFEFF 
FFEEFFFF 
FREFEFFE 
FRFFFFFF 
FEFFFEFEF 
FREFEFFF 
FFFEFFEF 
FEFFFEFF 


TEFFFFFF 
CCCCcceS4 
cCCco3E8 


ADDR1 ADDR2 


STMT 


3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 
3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3610 
3811 
3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3831 


SOURCE 


COMPON 
OW 
ACOMMON 
AosQ 
AMATRIX 
ASRAQ 
ASRAPQ 
ASRADEV 
ASRAWIP 
ASRDQ 
ASROPQ 
ASRODEV 
ASROWIP 
ASRDIST 
ASRTRCST 
ASRWGC 
ASRAGEPP 
ASRPQCST 
ACARDIN 
ALINEOUT 
ABEGINIT 
APINEDP 
ASRPPU 
ASRFLCQ 
MINONE 
SQCH 
SPQCH 
SDEVFOCH 
SWIPCH 
TQCH 
TPQCH 
TOEVFOCH 
TWIPCH 
AQTBA 
APQTBA 
ADEVTBA 
AWIPTBA 
AQTBD 
APQTBD 
ADEVTBD 
AWITPTBOD 
DISTX 
PRESUSE 
TONSTC 
POINTL 
POINT2 
WGCPSG 
wWGCUPSG 
WGCCS 
TRANSD 
FIXPTCST 
ACEPP 
APPTBM 
ACSQTBE 
(DPSGTC 
TDUSGTC 
(oOcsTc 
MAXT25 
AMORTL 
AMORT2 
AMORT3 
ADDRPQL 
ADORPQ2 
ADORPQ3 
Qig 
COSTCMP1L 
COSTCHP2 
COSTCMP3 
AODRIP 
QASSGNED 
WIPBE 
TYPQASG 
TYPQAUSG 
TYPQACS 
PPUPSG 
PPUUPSG 
PPUCS 
PPUSAND 
PPUGRAVL 
LARPOSN 
HUNDREO 
THOUSAND 
FQADY 
MWTD 
PWTDPOQ 
CCPSG 
CCUPSG 
cccs 
CTMPSG 
CTMUPSG 
CTMCS 
CTPSG 
CTUPSG 
cics 
CMWTD 
CMwWTOPQ 
TOTMATLW 
TOTCOST 
TOTIM 


STATEMENT 
oS 0D 

oS D 

DC A({ COMMON) 
oc A(OUTSDQ) 
oc A(MATRIX) 
DC = V4 SRAQ) 
oc V(SRAPQ) 
OC Y{SRADEVFO) 
OC = VC SRAWIP) 
Dc V(SRDQ) 
oc = V SRDP.Q) 
DC —- V(SRODEVFO) 
oc V(SROWIP) 
pC V(SROIST) 
bc V(SRTRCST) 
DC ~—s- V(.SRWGC) 
Dc V{SRAOEPP) 
oc V«SRPQCOST) 
DC V(CARDIN) 
oc V{LINEOUT) 
oc V(BEGINIT) 
oc V(MINEDP) 
DC =F V¢ SRP PU) 
DC ViSRFLCQ) 
oc Fee 

oc Ff-1e 

DC Fe-1e 

oc Fe-1e 

oc Fe-1! 

oc Fe-1e 

oc Fe-19 

oc Fe-ye 

oC Ft-18 

DS F 

DS F 

DS F 

DS F 

DS F 

DS é 

DS F 

DS F 

os F 

DS F 

oS F 

DS F 

DS F 

DS F 

DS F 

DS F 

DS F 

DS F 

DS F 

oS F 

DS F 

DS F 

oS F 

DS F 

DS F 

DS F 

DS F 

oS F 

oS F 

DS F 

DS F 

OS F 

DS F 

DS F 

DS F 

DS F 

DS F 

DS F 

0S F 

DS F 

DS F 

Ds F 

os F 

DS F 

DS F 

DS F 

DC X*°7FFFFFFE® 
nc F*100# 

oC F*1000° 
oS F 

oS F 

0S F 

DS F 

DS F 

DS F 

DS F 

DS F 

DS F 

DS F 

DS F 

DS F 

DS F 

DS & 

0S F 

DS F 

DS F 


FOLAUG68 


ADDR OF OUTSIDE QUARRIES 


ADDR SUBROUTINE SRAOEPP 


ALLOWANCE ON EXISTING PROCESSING PLT 
(ADDR PP TO BE MOVED) 
{ADDR CRUSHED STONE Q TO BE ESTABL) 
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Loc 


oo3eec 
cc3esc 
003894 
ocze9e 
oc3e9c 
O038AC 
OC38A4 
Oo3e8Ae 
OC3BAC 
oc3esc 
0C3e8B4 
oc3e8e8 
oc3eec 
oc3ecc 
0c38C4 
oc3ece 
003eCcC 
oc3ecc 
ac3zec4 
003954 
co3958 
OC3S5C 
OC39EC 
0C3964 
OC39EE 
0c3967 
CC3968 
0039S 
OC3SEA 
0c396e 
OC396C 
CC39EE 
oc39g7Cc 
0C3972 
003973 
0C3974 
0c3975 
0c3977 
oc39Cc? 
cc39Cce 
0039C9 
OC3A5C 
CC3A5C 
CC3AFC 
OC3AF1 
OC3AF2 
CC3AF3 
CC3AF4 
OC3AF5 
CC3AFE 
CC3AF? 
OC3AFE 
CO3AFS 
OC3AFA 
OC3AFB 
CC3AFC 
CC3AFC 
OC3AFE 
OC3AFF 
Oc3ecc 
Oc3BC1 
Oc38C2 
Oc3B8C3 
OCc3BC4 
OC3BC5 
OC3BCE 
oc3ec7 
oc36ce 
00363F 
OC38E2 


OC389E 


oc3ccT 
Oc3C45 
0c3c53 
oc3c7e 
oc3ac7eé 


CONSTANTS» CO¥MCN, AND MATRIX 


OBJECT CODE ADORL ACDR2 


c7 
CF 


01 

FF 

FF 

5C5C 
4C4C404C4C04C4C4C 
4C 


4C4C404C4C4C4C40 


OBESCLOSDSEB4CCI 
E405E4E2C5C 44004 
ESIDEDE4SCD4SCICSFSB 


DSE4C1CSD9E84S0C9 
OT06E3C505E3C9C1 


C2C5C 7C9D0540E8C5 
E2E3C1LE3C504C505 


STMT 


3832 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
3840 
3841 
3842 
3843 
3844 
3845 
3846 
3B47 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
3890 
3e91 
3892 
3893 
3894 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 


3903 


3904 
3905 
3906 
3907 
3908 


PAGE 


SOURCE STATEMENT J FOLAUG68 
TOTTONS OS F 
CTRCST os F 
CTONSOUT ODS F 
ccouTs os Ff 
YCPSG os F 
ycuesG DS F 
yccs os F 
YTMPSG os F 
YTMUPSG OS F 
YTMCS os FE 
YTPSG os fF 
YTUPSG os F 
yTcs oS = 
YTRCST oS F 
YTONSOUT OS F 
ycouTts os F 
INDEXT os F 
PERCFO OS F 
FRCOST oS 64H 

os F 
HGCONF os 5 
VGCONF os F 
SLCONF oS F 
COSTINT OS H 
MAXYEAR ODS x 
ASSGNQ oS x 


DFAREQPR OC 
OCAREQPR OC 


PLANHORZ OS 
ZLNOZONE 0S 
PQINFO os 
1OROW oS 
1OCOL os 
YEAR oc 
YRNCTBR OC 
SWITCH oc 
STARSTAR OC 
INPUT oc 
oc 
CARCONT OS 
OUTLINE OC 
os 
autTsog oS 
STRATEGY OS 
PTPQF OS 
NPTPQF os 
CSPQI oS 
QCA oS 
QcAD oS 
CFA os 
QFAD os 
ZLAW Os 
ZLAWD os 
OWNER OS Xx 
OWNERT os 
QUALT Os 
TYPET os 
TOZt oS 
IOPERSG OS 
TOMQPSG OS 
TOmMQUSG ODS 
IOMOCS os 
IDYTC OS 
MATLFOS OS 
SUPPLIER DS 
OUTSI OS 
LNPP os 


X01 INITIALIZE YEAR TO 1 


a KM OK 


2 > KK OK OKO KK 


x 


M35 DC C*QUARRY IN GRID --/, -/- HAS BEEN REMOVED FROM SYSTEM.* 
M36 DC C*UNUSED MATERIAL IS -»---»-/- TONS.* 
37 DC C*TOO MANY ENTRIES IN TEMPORARY CHAIN (TMEITCH)-SEE PROGRAMMER! 


M42 OC C*QUARRY IN GRID --/, -/- CAN NO LONGER BE MINED. IT WILL RX 
EMAIN IN THE SYSTEM AS AN INTERMEDIATE POINT.® 
MDPQAQ oc C*POTENTIAL QUARRY IN GRID --/, -/- IS ESTABLISHED AS X 
A QUARRY® 
BYM oc C*BEGIN YEAR -—/-* 
M100 oc CL36*STATEMENT HAS BEEN EXECUTED® 
OS OD 
MATRIX os 1LOOOCL84 
ENO 
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